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Apple, legique et systèmes 
experts, 

par René DESCAMPS. 

224 pages - 120,00 FF. 

12 programmes en Basic. :H 
fichiers proposent de cons- 
truire un “moteur d'inféren- 
ce” capable de trouver la so- 
lution d’énigmes et de bâtir 
des raisonnemenis. 


Basic Plus 80 routines sur 
Apple Il, 

par Michel MARTIN. 

144 pages - 95,00 FF. 

Basic Plus vous propose 
80 routines pour “muscler” 
votre machine, 80 manières 
de simuler des fonctions 
que vous n’auriezjamais cru 
pouvoir utiliser. 


Exploitation d'enquêtes sur 
Apple H et IBM/PC, 


mms 27 JF. CRIMMER. 


176 pages - 120,00 FF. 
L'ensemble des program- 
mes prepesés permet d'ex- 


En vente en librairie, en boutique informatique et auprès de P.S.[L Diffusion 


pioller. avéc quelques 
connatssances formati- 
ques. des fichiers de donnees 
numériques sur Apple Il et 
IBM/PC. 
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224 pages - 120,00 FF. 
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votre ordinateur 
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232 pages - 120.00 FF. 
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256 pages - 120.00 FF. 

50 programmes de jeux en 
Basic sur Apple. 


Apple, modems et serveurs, 
par Alain MARIATTE. 

224 pages - 130,00 FF. 

Pour apprendre à se ser- 
vir d'un modem el se 
familiariser avec les outils 
télématiques. 
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Editorial 


laser et 100 % Apple pour la préparation de Pom's à 


partir de ce numéro. Contribuent aux pages qui suivent : 
O des Macs 128 et 512 Ko, une imprimante à laser, des 
Apple ]{+, lle, /Ic, des liaisons série pour que ce beau 


monde communique, MacPaint, MacDraw, MacWrite, AppleWriter et quelques 
programmes ‘maison’. Cela pour une présentation que vous trouverez, nous l'espérons, 
améliorée et qui prendra certainement son aspect définitif dès le numéro 21. 


Les congés vous ont permis, si ce n'est de bronzer, tout au moins de penser à Pom's. Nous 
recevons de nombreuses contributions qui nous promettent de belles pages pour les 
prochains numéros : continuez ! 


Toujours un sommaire fourni : 


De nouvelles fonctions accessibles par l'& après un simple BRUN : tel est l'objet du 
programme de Sylvie Gallet. Une utilisation originale de votre carte langage — y stocker 
des variables chaînes de longueur fixe — il s'agit d'un utilitaire de Hervé 
Roy-Contancin. 


Deux articles consacrés à ProDOS dans ce numéro : 

° une très belle de contribution de François Sermier qui permet de disposer de DOS et 
ProDOS simultanément en mémoire. Pourquoi ne pas éditer vos programmes Basic 
avec EPE sous DOS puis les sauvegarder sous ProDOS ? 

+ une étude approfondie des appels en assembleur par Alexandre Avrane avec la mise 
en place de commandes externes, un Tdump et un Init qui faisaient défaut. 

Gérard Becher a écrit un programme de copie d'écran sur Silentype qui, outre son 

aspect pratique pour les possesseurs de ces imprimantes, présente un intérêt didactique 

pour tous par son source particulièrement commenté. Dans le même esprit, avec Pascal 

Cantot, les As, Lsr, Rol et Ror ne devraient plus avoir de secret pour vous. 

Egalement, un volumineux programme assembleur de Jean-Luc Arnaud pour éditer le 

catalogue de vos disquettes. 

Converti au 68000, nous retrouvons Gérard Michel dans le cahier Mac. Belle 

contribution de Jean-Luc Bazanegue et Christian Piard : La gestion de vos comptes 

bancaires personnels sur Macintosh, présentation "Macintosh" bien qu'exceptionnellement 
sans coccinelle !.… 

Et, comme à l’accoutumée, les rubriques de Jean-Michel Gourévitch et Olivier 

Herz. 

Hervé Thiriez 
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Ouatre fonctions 
pour le Basic 


e programme présenté 
ici est classique, mais 


Sylvie Gallet 
est d'une grande utili- 


L té pour les program- 


meurs en Basic. En effet, par 

l'intermédiaire de l'ampersand, il 

permet : 

° de supprimer les REMs d'un 
programme Basic. Toutefois, il 
ne tient pas compte des 
GOTOSs et des GOSUBs ; 

+ d'éditer une ligne de program- 
me, sans introduire d'espace 
superflu. Un petit problème 
subsiste : il s'agit des REMs 
comportant un CTRL-J ; 

+ le POKE 33,28 (bien prati- 
que) ; 

+ l'accès au Mini-Assembleur ; 
celui-ci a été relogé en $8 A9 A 
mais peut être aussi appelé par 
$8C00G ; 

* l'accès à toutes les fonctions 
du RENUMBER de la dis- 
quette Marre. 


Mode d'emploi 


En lancant le programme COM- 
MANDES, vous obtiendrez la 
liste des commandes autorisées 
ainsi que leur syntaxe. Le 
programme UTILITAIRES con- 
tient déjà RENUMBER et le 
Mini-Assembleur. Il ajuste 
lui-même la HIMEM et le vecteur 
ampersand (&). I] se lance par : 


Programme 
UTILITAIRES SCE 
(Assembleur LISA 2.5) 


RRRRRRRÉARÉARÉRÉRRÉRÉRRÉRÉÉRÉRRÉRÉRÉ 


UTILITAIRES DE BASIC 


Jaune un tr 
# + # + Lite | 
* * x # 


S. GALLET 27-2-1985 
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BRUN UTILITAIRES, A$8A8E 


Il y a une petite précaution à 
prendre. Après MAXFILES, 
HIMEM ou FP, il est indispen- 
sable de relancer UTILITAIRES. 


Les commandes 


La syntaxe 


- &P effectue successivement un 
HOME et un POKE 33,28 

- &LNNN liste la ligne de 
programme dont le numéro est 
donné par NNN 

- &C supprime les REMarques 
du programme 

- & A donne accès au Mini- 
Assembleur (Basic) 

- 8C00G pour le Mini-Assem- 
bleur (Moniteur) 


Pour le RENUMBER, la syntaxe 

est un peu plus lourde. Il faudra 

taper : "RENUMBER:&" suivi 

des paramètres F, I S, E, H, M. 

Ces paramètres représentent res- 

pechvement : 

* le premier nouveau numéro de 
ligne (first); 

* l'incrément ; 

+ le numéro de la première ligne 
à renuméroter (start); 

* le numéro de la dernière ligne à 
renuméroter (end); 

+ la protection du programme 
pour fusion (hold); 

+ la réalisation de la fusion 


8 * * 
OHRARRRRRRRÉÉRÉRÉRRRRRRÉRÉÉRÉRRRRRKRK 
10 : 

11 : 

12 STXERR EQU $DEC9 

13 HOME EQU $FC58 

14 FRMNUM EQU $DD67 

15 GETADR EQU $E752 

16 FNDLIN EQU $D61A 

17 ILLOTY EQU $E199 

18 OUTDO EQU $DB5C 

19 GIVAYF EQU $E2F2 

20 MOVAF EQU $EB63 


(merge); 
Pour les utilisateurs n'ayant pas 
la disquette d'accompagnement, 
voilà comment il faut procéder 
pour RENUM et MINI : 
] FP (HIMEM: 38400 soit 
$9600 en hexa) 
] RUN RENUMBER 
JBSAVE RENUM, A$8E00, 
L$800 
] BLOAD INTBASIC, A$6000 
] CALL-151 


* 8535: 4C 2F 8B 
* 8559: 4C 2F 8B 
* 85BD: 20 CE 8B 
* 85DB: 20 CE 8B 
* 85E5: 20 CE 8B 
* 8631: 4C F6 8A 
* 8666: 4C 2C 8B 


* BSAVE MINI, A$8500, 
L$170 

* BLOAD MINI, A$S8A9A 
* BSAVE MINI, A$8A9A, 
L$170 

* BLOAD UTILITAIRES OBJ, 
A$8A8E 

* BLOAD MINI 

* BLOAD RENUM 

* BSAVE UTILITAIRES, 
A$8ABE, L$B72 


G 


21 FDIVT EQU $EA69 
22 CONINT EQU $E6FB 
23 LINPRNT EQU $ED24 
24 CRDO EQU $DAFB 
25 BASIC EQU $FEB3 
26 SIGNFLT EQU $E301 
27 AMPER EQU %53F5 

28 RENUMBER EQU $8E00 
29 MINI EQU $8co0 


31 LARGFEN EPZ $2i 
32 CHRGET EPZ $B1 





34 


100 
101 
102 


LT 
TXTPTR 
AUX 
HIMEM 
CAR.LU 
CAR.ECR 
LS 

TEMP 
PAGEND 
TXTTAB 


u 
. 
i 


Rhhhhhhhhhhhhhhhhhhhhhhhhhhhhk 


. 
‘ 


ORIGINE: 


; 


Rhhhhhhhhhhhhhhhhhhhhhhmhhhhhh 


* DEBUT DU MINI ASSEMBLEUR 


. 
;î 


FIN DU MINI ASSEMBLEUR 


MINIASD: 


. 
î 


RRARARRAMNNNANRRAR RAR RAR RAR RAR RÉ 


En 


T2: 


23: 


T4: 


EPZ $9B 
EPZ $50 
EPZ $85 
EPZ $9D 
EPZ $25 
EPZ $24 
EPZ $FE 
EPZ $B8 
EPZ $FC 
EPZ $73 
EPZ $FA 
EPZ $EFC 
EPZ $SFE 
EPZ $F9 
EPZ $AF 
EP2Z $67 


ORG $8A8E 
BJ $800 


NOP 

IDA #ORIGINE 
STA HIMEM 
IDA /ORIGINE 
STA HIMEM+1 
JMP INIT 


ORG MINIASD+$170 


OBJ $97C 


LDA #$4C 
STA AMPER 
LDA #DEBUT 
STA AMPER+1 
LDA /DEBUT 
STA AMPER+2 
JMP BASIC 


CMP #'p' 
BNE T2 
JP POKE 


CMP #'L' 
BNE T3 
JMP EDIT 


CMP #'c' 
BNE Ta 
JMP COMPACTE 


CMP #'A' 
BNE TS 


126 LITCAR: 


137 CALCFORM: 
138 

139 

140 

141 

142 

143 

144 

145 CHLIGN: 
146 

147 

148 

149 PRTLIGN: 
1590 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 LIST: 
166 

167 BOUCLE: 
168 

169 

170 

174 

172 SUITE: 


MINI 


RENUMBER 


STXERR 


CHRGET 
ERR 
HOME 
#$1C 
IARGFEN 


TXTPTR 
AUX 
TXTPTR+1 
AUX +1 


CHRGET 
LITCAR 
ERR 

AUX 
TXTPTR 
AUX +1 
TXTPTR+1 
TXTPTR 
CALCFORM 
TXTPTR+1 


ERMNUM 
ERR 
GETADR 
#$F9 
LINNUM +1 
CHLIGN 
ILLOTY 


FNDLIN 
PRTLIGN 
STOP 


CRDO 
CRDO 
#$20 
OUTDO1 
#$20 
OUTDO1 
LINNUM+1 
LINNUM 
LINPRNT 
CH 

LT 

#500 
LT+1 
#$20 
QOUTDOI 


#53 


INCR.Y2 
{LOWTR) , Ÿ 
SUITE 
FIN 


TOKEN: 


LIT: 


LITI': 


BONTOKEN : 


PRNTINST: 


DERNCAR : 


PRINT: 


FIN: 


STOP : 


# ee 


OUTDOI1 : 
JSR 
INC 
BNE 
INC 
RETURN: 
RTS 
INCR.Yt: 
D 
INY 


PRINT 


#57E 


AUXIL 
#$D0 
FAC 
#$cF 
FAC+1 
#$FF 


BONTOKEN 


INCR.Y1 
LITI 
LIT 


#$520 
OUTDO1 


INCR. Y1 
DERNCAR 
OUTDOI 

PRNTINST 


OUTDOI 
AUXIL 


#520 


OUTDOL 
BOUCLE 


LT+i 

LT 
GIVAYF 
MOVAF 
LARGFEN 
SIGNFLT 
FDIVT 
CONINT 


#$FE 


Cv 
STOP 
#$18 
STOP 
CV 


BASIC 


*# SOUS-PROGRAMMES *** 


OUTDO 
LT 
RETURN 
LT+1 
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243 BNE MPAGI 289 ORA 
244 INC FAC+1 290 BEQ 
245 MPAGI: 291 LDX 
246 LDA (FAC),Y 292 BX2 JSR 
247 RTS 293 JSR 
248 ; 294 DEX 
249 ; 295 BNE 
250 INCR.Y2: 296 JMP 
251 5------- 297 FIN.REM JSR 
252 INY 298 JSR 
253 BNE MPAG2 299 LDA 
254 INC LOWTR+1 300 STA 
255 MPAG2: 301 IDA 
256 RTS 302 STA 
257 ; 303 JMP 
258 ; 304 SUITEREM CMP 
259 RARRRARRRRRÉRRRRRÉRRRRRÉRRRRÉÉ 305 BEC 
260 ; 306 ISR 
261 ; 307 JMP 
262 ; 308 REM LDA 
263 COMPACTE: 309 CLC 
264 5---—----- 310 ADC 
265 ; 311 PHP 
266 INIT.REM LDY 850 312 CMP 
267 LDA TXTTAB 313 BNE 
268 STA LS 314 LDA 
269 CLC 315 PLP 
270 ADC 853 316 ADC 
271 STA CAR.LU 317 cæ 
272 STA CAR.ECR 318 BNE 
273 LDA TXTTAB+1 319 REM.FL LDA 
274 STA LS+1 320 STA 
275 ADC #50 321 JSR 
276 STA CAR. LU+1 322 UMP 
277 STA CAR-ECR+1 323 NON LDA 
278 ; 324 STA 
279 DEBUTREM JSR LIRE 325 JSR 
280 BNE SUITEREM 326 JMP 
281 ZFL JSR ECRIRE 327 DECALE IDA 
282 JSR CHAINER 328 SEC 
283 TESTFIN IDX #$2 329 sBC 
284 BX1 STA TEMP 330 BCS 
285 JSR LIRE 331 DEC 
286 JSR ECRIRE 332 x STA 
287 DEX 333 BOUCLE-L JSR 
288 BNE BX1 334 BNE 
Programme COMMANDES 





10 TEXT : HOME : SPEED» 255:D$ = CHRS (4) 

20 PRINT" COMMANDES:" 

30 PRINT : PRINT *-8C00G MINI ASSEMBLEUR 
(MONITEUR) PRINT *-&A MINI ASSEMBLEUR 
(BASIC)" 

40 PRINT : PRINT "-8P  HOME+POKE33,28": PRINT : 
PRINT ” - &LNNN LISTE LA LIGNE NNN POUR: 
PRINT EDITION” 

50 PRINT :PRINT"-8&C SUPPRIME LES 
REMARQUES" 

60 PRINT : PRINT "RENUMBER: & SUIVI DE:": PRINT * - F 
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TEMP 335 RTS 
FIN.REM 336 ; 
852 337 ECRIRE INC CAR.ECR 
LIRE 338 BNE E 
ECRIRE 333 INC CAR.ECR+1 
340 E STA (CAR.ECR),Y 
BX2 341 RTS 
DEBUTREM 342 :; 
ECRIRE 343 LIRE INC CAR.LU 
ECRIRE 344 BNE L 
CAR-ECR 345 INC CAR.LU+1 
PAGEND 346 L LDA CAR.LU--l 
CAR.ECR+1 347 CMP PAGEND+1 
PAGEND+1 348 BNE LL 
BASIC 349 IDA CAR.LU 
85B2 350 CMP PAGEND 
REM 351 BNE LL 
ECRIRE 352 JMP FIN.REM 
DEBUTREM 353 LL LDA (CAR.LU},Y 
#53 354 RTS 
355 ; 
LS 356 CHAINER LDA CAR.ECR 
357 CLC 
CAR.ECR 358 ADC #$1 
NON 359 STA (LS),Y 
#$0 360 LDA CAR.ECR+1 
361 ADC #$0 
LS+1 362 INY 
CAR.ECR+1 363 STA (LS},Y 
NON 364 DEY 
#54 365 STA LS+1 
TEMP 366 1DA CAR.ECR 
DECAIE 367 STA LS 
TESTFIN 368 INC LS 
#51 369 RTS 
TEMP 370 ; 
DECALE 371 *XARARRRRRRRARRÉRÉRÉRRRRRRRRREÉX AK 
ZEL 372 3 
CAR.ECR 373 ;RENUMBER SE TROUVE ICI 
374 ; 
TEMP 375 *ÉMXRARARARRMUNRÉ NRA KA KÉ RER 
x 376 ; 
CAR-ECR+1 377 FINAL: 
CAR.ECR 378 : 
LIRE 379 LONGUEUR EQU FINAL-ORIGINE 
BOUCLE.L 380 END 
1ER NOUVEAU NUMERO" 
70 PRINT ®-I INCREMENT": PRINT * -S 1ERE 
LIGNE A RENUMEROTER" 
80 PRINT" -E DERNIERE LIGNE A RENUMEROTER" 
90 PRINT" -H PROTEGE LE PRGM POUR FUSION": 
PRINT" -M REALISE LA FUSION" 


100 PRINT : PRINT "ATTENTION! APRES 'MAXFILES, 
‘HIMEM' OÙ ‘FP’, IL FAUT RELANCER 
"UTILITAIRES" 

110 PRINT D$"BRUNUTILITAIRES" 











Récapitulation 


8C70- A9 F9 C5 51 BO 03 4C 99 BAA8S- 18 ES 3À 85 3E 10 01 C8 

UTILITAIRES OBJ 8C78- El 20 1A D6 BO 03 4C OC 8AB0- 98 F5 3B DO 6B A4 2F B9 
8C80- 8D 20 FB DA 20 FB DA A9 8AB8- 3D 00 91 3A 88 10 F8 20 

8A8E- EA A9 8C88- 20 20 OF 8D A9 20 20 OF 8ACO- 1A FC 20 1A FC 20 DO F8 
8A90- 8E 85 73 A9 8A 85 74 4C 8C90- 8D AS 51 A6 50 20 24 ED 8AC8- 20 53 F9 84 3B 85 3A 4C 
8A98- OA 8C A5 8D 9F A5 A9 9D 8C98- AS 24 85 FE A9 00 85 FF 8AD0- 2F 8B 20 BE FF A4 34 20 
8AAO- 8D 7C A5 8D AO A5 A9 EA 8CAO- A9 20 20 OF 8D AO 03 20 8AD8- A7 FF 84 34 AO 17 88 30 
8AA8- 8D DF A6 8D EO A6 20 58 8CA8- 21 8D B1 9B DO 03 4C E9 8AE0- 4B D9 CC FF DO F8 CO 15 
8ABO0- FC A2 O0 BD 30 08 FO 17 8CB0O- 8C 10 30 38 E9 7F AA 84 8AE8- DO E8 AS 31 AO 00 C6 34 
8AB8- 20 ED FD E8 DO F5 8D CC 8CB8- 85 AO DO 84 9D AO CF 84 8AFO0- 20 O0 FE 4C 2F 8B AS 3D 
8ACO- CF C1 C4 C9 CE C7 AO CC 8CCO- 9E AO FF CA FO 07 20 19 8AF8- 20 8E F8 AA BD 00 FA C5 
8AC8- C9 D3 Cl AE AE AE 00 AD 8CC8- 8D 10 FB 30 F6 A9 20 20 8B00- 42 DO 13 BD CO F9 C5 43 
8AD0- 83 CO AD 83 CO A9 00 8D 8CD0- OF 8D 20 19 8D 30 05 20 8B08- DO OC A5 44 A4 2E CO 9D 
8AD8- 00 EO AD 00 EO DO 70 A9 8CD8- OF 8D DO F6 20 OF 8D A4 8B10- FO 88 C5 2E FO 9F C6 3D 
8AEO- FF 8D 00 EO AD 00 EO C9 8CE0- 85 A9 20 20 OF 8D 4C A7 8B18- DO DC E6 44 C6 35 FO D6 
8AE8- FF DO 64 AO 00 AD 89 CO 8CE8- 8C A5 FF A4 FE 20 F2 E2 8B20- A4 34 98 AA 20 4A F9 A9 
8AFO0- AD 89 CO B9 8B 08 FO 07 8CFO0- 20 63 EB A4 21 20 O1 E3 8B28- DE 20 ED FD 20 3A FF A9 
8AF8- 20 ED FD C8 4C 65 08 AD 8CF8- 20 69 EA 20 FBE6 8A 49 8B30- A1 85 33 20 67 FD 20 C7 
8B00- 83 CO AD 83 CO AD 83 CO 8D00- FF 18 65 25 30 06 C9 18 8B38- FF AD 00 02 C9 AO FO 13 
8B08- AO 00 B9 A6 08 FO 07 20 8D08- 10 02 85 25 4C B3 FE 20 8B40- C8 C9 A4 FO 92 88 20 A7 
8B10- ED FD C8 4C 7C 08 4C 00 8D10- 5C DB E6 FE DO 02 E6 FF 8B48- FF C9 93 DO DS 8A FO D2 
8B18- EO 8D 84 C2 CC CF C1 C4 8D18- 60 C8 DO 02 E6 9E B1l 9D 8B50- 20 78 FE A9 03 85 3D 20 
8B20- AO C1 D3 CD AE C3 CF C4 8D20- 60 C8 DO 02 E6 9C 60 AO 8B58- CE 8B OA E9 BE C9 C2 90 
8B28- C5 AE B1l AC C1 A4 C4 BO 8D28- 00 AS 67 85 FE 18 69 03 8B60- C1 OA OA A2 04 OA 26 42 
8B30- BO BO 8D 00 8D 84 C2 CC 8D30- 8S FA 85 FC A5 68 85 FF 8B68- 26 43 CA 10 F8 C6 3D FO 
8B38- CF Ci C4 AO C1 D3 CD AE 8D38- 69 00 85 FB 85 FD 20 Ca 8B70- F4 10 E4 A2 05 20 CE 8B 
8B40- C3 CF C4 CS AE.B2 AC C1 8D40- 8D DO 36 20 BB 8D 20 DC 8B78- 84 34 DD B4 F9 DO 13 20 
8B48- A4 C4 BO BO BO 8D 00 A9 8D48- 8D A2 02 85 F9 20 C4 8D 8B80- CE 8B DD BA F9 FO OD BD 
8B50- 01 8D B1 AA A2 00 BD D6 8D50- 20 BB 8D CA DO F5 05 F9 8B88- BA F9 FO 07 C9 A4 FO 03 
8B58- 08 FO 06 20 ED FD E8 DO 8D58- FO OE A2 02 20 C4 8D 20 8B90- A4 34 18 88 26 44 EO 03 
8B60- F5 4C 00 60 8D 84 CD C1 8D60- BB 8D CA DO F7 4C 3E 8D 8B98- DO OD 20 A7 FF A5 3F FO 
8B68- D8 C6 C9 CC C5 D3 AO B1 8D068- 20 BB 8D 20 BB 8D A5 FC 8BAO- 01 E8 86 35 A2 03 88 86 
8B70- 8D 84 C2 CC CF C1 C4 AO 8D70- 85 AF A5 FD 85 BO 4C B3 8BA8- 3D CA 10 C9 A5 44 OA OA 
8B78- C1 D3 CD AE C3 CF C4 C5 8D78- FE C9 B2 FO 06 20 BB 8D 8BBO- 05 35 C9 20 BO 06 A6 35 
8B80- AC C1 A4 B6 BO BO BO 8D 8D80- 4C 3E 8D A9 03 18 65 FE 8BB8- FO 02 09 80 85 44 84 34 
8B88- 00 00 00 00 B7 FF FF FF 8D88- 08 C5 FC DO 13 AS 00 28 8BCO- B9 00 02 C9 BB FO 04 C9 
8B90- 61 O1 FE FE 01 O1 FF FF 8D90- 65 FF C5 FD DO OA A9 O4 8BC8- 8D DO 80 4C F6 8A B9 00 
8B98- 01 O1 FE FF 01 O1 FF FF 8D98- 85 F9 20 AA 8D 4C 49 8D 8BDO- 02 C8 C9 AO FO F8 60 20 
8BAO- El 01 FE FE 01 O1 FF FF 8DAO- A9 01 85 F9 20 AA 8D 4C 8BD8- 7D F4 AS F8 10 13 C9 8E 
8BA8- 01 01 FE FF 01 O1 FE FF 8DA8- 43 8D AS FC 38 E5 F9 BO 8BEO0- DO F5 24 F9 10 OA AS FB 
8BBO- 21 01 FE FE O1 00 FF FF 8DBO- 02 C6 FD 85 FC 20 C4 8D 8BE8- FO 06 E6 FA DO 02 E6 F9 
8BB8- 00 00 FE FF O1 OOFE FF 8DB8- DO FB 60 E6 FC DO 02 E6 8BF0- 60 A9 00 85 F9 85 FA 60 
8BCO- 41 01 FE FE O1 00 FF FF 8DC0O- FD 91 FC 60 E6 FA DO 02 8BF8- FF FF FF FF FF FF FF FF 
8BC8- 00 00 FF FF 01 00 FF FF 8DC8- E6 FB AS FB C5 BO DO 09 8co0- 4C 2C 8B 84 58 86 57 85 
8BDO- 41 O1 FE FE 01 O1 FF FF 8DD0- AS FA C5 AF DO 03 4C 68 8co8- 56 08 A9 4C 8D F5 03 A9 
8BD8- 01 O1 FE FF O1 O1 FE FE 8DD8- 8D B1 FA 60 A5 FC 18 69 8C10- 1C 8D F6 03 A9 8C 8D F7 
8BEO- 01 O1 FE FE 01 00 FF FE 8DEO- 01 91 FE AS FD 69 00 C8 8c18- 03 4C B3 FE C9 50 DO 03 
8BE8- 00 00 FE FE 01 O1 FE FE 8DE8- 91 FE 88 85 FF A5 FC 85 8C20- 4C 3E 8C C9 4C DO 03 4C 
8BFO0- 61 01 FE FE 01 00 FE FE 8DFO- FE E6 FE 60 8C28- 4B 8C C9 43 DO 03 4C 27 
8BF8- 00 00 FE FE 01 00 FE FF 8C30- 8D C9 41 DO 03 4C 00 8C 
8C00- 81 01 FE FE O1 OO FF FF 8C38- 4C 00 8E 4C C9 DE 20 B1 
8C08- 01 01 A9 4C 8D F5 03 A9 —Æ—, OR em 8C40- 00 DO F8 20 58 FC A9 1C 
8C10- 1C 8D F6 03 A9 8C 8D F7 Récapitulation 8C48- 85 21 60 AS B8 85 FC AS 
8C18- 03 4C B3 FE C9 50 DO 03 8C50- B9 85 FD 20 Bi 00 90 FB 
8C20- 4C 3E 8C C9 4C DO 03 4C UTILITAIRES 8C58- DO El A5 FC 85 B8 A5 FD 
8C28- 4B 8C C9 43 DO 03 4C 27 E'SE constitué des fichiers 8C60- 85 B9 E6 B8 DO 02 E6 B9 
8C30- 8D C9 41 DO 03 4C 00 8C UTILITAIRES OBJ, MINI, RENUM. 8C68- 20 67 DD BO CE 20 52 E7 
8C38- 4C 00 8E 4C C9 DE 20 BI C'est le seul fichier nécessaire  8C70- A9 F9 C5 51 BO 03 4C 99 
8C40- 00 DO F8 20 58 FC A9 1C à l'obtention des 4 fonctions, 8C78- El 20 1A D6 BO 03 4C OC 
8Cc48- 85 21 60 A5 B8 85 FC AS 8C80- 8D 20 FB DA 20 FB DA A9 
8C50- B9 85 FD 20 B1 00 90 FB 8A8E- EA A9 8C88- 20 20 OF 8D A9 20 20 OF 
8C58- DO El A5 FC 85 B8 A5 FD 8A90- 8E 85 73 A9 8A 85 74 4C 8C90- 8D A5 51 A6 50 20 24 ED 
8C60- 85 B9 F6 B8 DO 02 E6 B9 8A98- OA 8C E9 81 4A DO 14 A4 8C98- A5 24 85 FE A9 00 85 FF 
8C68- 20 67 DD BO CE 20 52 E7 8AAO0- 3F A6 3E DO 01 88 CA 8A 8CA0- A9 20 20 OF 8D AO 03 20 





8 Pom's n° 20 


Pom's n° 20 








92A8- 94 4C 86 92 AD D3 94 OD 9408- BO 06 20 B2 94 90 C9 60 9568- 4F 4E 20 48 4F 4C 44 2C 
92B0- D4 94 FO 05 AO 85 4C AO 9410- 68 68 AO D6 4C AO 92 AO 9570- 20 55 53 45 20 22 26 4D 
92B8- 92 AS 73 C5 AF AS 74 E5 9418- 00 B1 A5 C8 AA B1l A5 86 9578- 22 20 54 4F 20 52 45 43 
92C0- BO E9 04 BO 05 AO 52 4C 9420- A5 85 A6 B1 A5 60 E6 A7 9580- 4F 56 45 52 8D 48 4F 4C 
92C8- AO 92 AS AF ES 67 8D D3 9428- DO 02 E6 A8 A5 A7 CS 73 9588- 44 20 46 49 4C 45 20 49 
92D0- 94 AS BO E5 68 8D D4 94 9430- A5 A8 E5 74 90 07 68 68 9590- 4E 20 55 53 45 8D 4C 49 
92D8- AS 73 8D D5 94 A5 74 8D 9438- AO 52 4C AO 92 60 84 AB 9598- 4D 49 54 45 44 20 4D 45 
92E0- D6 94 AO 00 A5 73 DO 02 9440- A5 A3 85 A7 A5 A4 85 A8 95A0- 4D 4F 52 59 2C 20 4D 41 
92E8- C6 74 C6 73 A5 Ar DO 02 9448- AO 00 B1 A7 45 9D DO 07 95A8- 59 20 44 45 53 54 52 4F 
92F0- C6 BO C6 AF Bl AF 91 73 9450- C8 B1l A7 45 9E FO 15 18 95B0- 59 20 50 52 4F 47 52 41 
92F8- AS 67 C5 AF A5 68 E5 BO 9458- A5 A7 69 04 85 A7 90 02 95B8- 4D 20 20 20 20 20 43 4F 
9300- 90 E2 AS 67 69 02 85 AF 9460- E6 A8 AO O1 B1 A7 C9 FF 95C0- 4E 54 49 4E 55 45 20 28 
9308- 85 69 AS 68 69 00 85 BO 9468- DO DE FO OA C8 B1 A7 85 95C8- 59 2F 4E 29 3F 07 8D 53 
9310- 85 6A AO O1 A9 00 91 67 9470- 9D C8 B1l A7 85 9E A4 AB 95D0- 59 4E 54 41 58 8D 3E 20 
9318- 88 10 FB AO 60 20 A4 94 9478- 60 A5 69 85 À3 A5 6A 85 95D8- 36 33 39 39 39 8D 4C 49 
9320- 4C 86 92 AD D3 94 OD D4 9480- A4 A4 AB 18 B1 A3 45 9D 95E0-‘4E 45 20 54 4F 4F 20 4C 
9328- 94 FO F5 38 A4 73 A5 74 9488- DO 07 C8 B1l A3 45 9E FO 95E8- 4F 4E 47 9B 49 4E 43 52 
9330- E9 01 C4 69 ES 6A BO 05 9490- 12 A5 A3 69 04 85 A3 90 95F0- 45 4D 45 4E 54 20 3D 20 
9338- AO 52 4C AO 92 A5 67 A6 9498- 02 E6 A4 AO O1 B1 A3 C9 95F8- 30 8D C9 C9 FO 07 C9 00 
9340- 68 85 Al 86 A2 AO O1 B1l 94A0- FF DO DE 60 B9 00 95 48 9600- 46 

9348- Al FO 07 AA 88 Bl Al 4C 94A8- C8 09 80 20 ED FD 68 10 

9350- 41 93 AS Al 85 42 A5 A2 94B0- F3 60 EE BB 94 DO 03 EE 

9358- 85 43 AD D5 94 85 3E AD 94B8- BC 94 AD 8C 8A C9 3A BO 

9360- D6 Y4 85 3F A5 73 85 3C 94C0- 06 38 E9 30 38 E9 DO 60 

9368- A5 74 85 3D AO 00 20 2C 94C8- 00 45 53 49 46 85 AC AB Récapitulation MINI 
9370- FE AD D5 94 85 73 AD D6 94D0- BO BC C4 00 00 00 00 18 

9378- 94 85 74 38 AD D3 94 E9 94D8- A5 A3 65 Al 85 A3 A5 A4 EE 
9380- 02 85 Al AD D4 94 E9 O0 94F0- 65 A2 85 A4 BO 04 C9 FA nr Mal CE ocean À 
9388- 85 A2 18 AS AF 65 Al 85 94E8- 90 05 AO 27 4C AO 92 AS partir du fichier INTBASIC de la 
9390- AF 85 69 AS BO 65 A2 85 94F0- 9D AO 02 D1 A5 C8 AS JE au Hire en en CE 
9398- BO 85 6A A9 00 8D D3 94 94F8- F1 AS BO B6 A5 AB 10 05 Re 

93A0- 8D D4 94 AS 67 85 Al A5 9500- 4E 4F 20 50 52 4F 47 S2 

93A8- 68 85 A2 18 AO O1 B1 Al 9508- 41 4D 20 49 4E 20 4D 45 

93B0- FO iD AO 04 C8 B1 Al DO 9510- 4D 4F 52 59 8D 4E 4F 20 

93B8- FB C8 98 65 Al AÀ AO 00 9518- 4C 49 4F 45 53 20 49 4E 

93Cc0- 91 A1 AS A2 69 00 C8 91 9520- 20 52 41 4E 47 45 8D 49 Récapitulation 

93C8- Al 86 Al 85 A2 90 DD 4C 9528- 4E 43 52 45 4D 45 4E 54 RENUM 
93D0- 65 91 A2 00 86 A7 86 A8 9530- 20 54 4F 4F 20 4C 41 52 

93D8- AA 06 A7 26 A8 BO 31 A5 9538- 47 45 8D 44 55 50 4C 49 

93E0- A8 85 AB A5 A7 OA 26 AB 9540- 43 41 54 45 20 4C 49 4E Sert à constituer le fichier 
93E8- BO 26 OA 26 AB BO 21 65 9548- 45 20 4E 55 4D 42 45 52 UTILITAIRES. 11 est obtenu à 
93F0- A7 85 A7 A5 AB 65 A8 85 9550- 53 8D 4F 55 54 20 4F 46 partir du fichier RENUMBER de la 
93F8- A8 BO 15 8A 29 OF 65 A7 9558- 20 4D 45 4D 4F 52 59 8D disquette Master ; se reporter 
9400- 85 A7 A5 A8 69 00 85 A8 9560- 50 52 4F 47 52 41 4D 20 au texte. 


: : le moniteur étendu 


Jacques Supernant Apple Jf+, //e, {/c 


Ce moniteur autorise un contrôle de l'exécution des routines 
_ en langage machine. 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés Les fichiers source 


par un accès direct aux registres du 6502 (ou 65C02). sont sur la 
disquette. 


La gestion des fenêtres d'écran simplifie le mode trace. 


: Ë à Disquette et 
Une routine permet la recherche de suites d'octets. à 


documentation : 


: - 150,00 F TTC 
Un mini-assembleur très souple fait partie de Max. franco . Bon de 


Une ligne de commande peut devenir une boucle avec l'ordre JUMP commande p 74. 
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fin de rassurer 
pleinement les lecteurs 
de Pom's redoutant 
l'abandon de la ligne 
6502, voici un programme qui va 
permettre aux possesseurs 
d'Apple (II et II+ avec carte 














Organigramme 


Utilisation de la 


carte langage 


Hervé Roy-Contancin 


langage, //e et //c) d'utiliser cette 
carte en DOS 3.3 sous Applesoft. 
Les 16 Ko de la carte langage, 
normalement inaccessibles en 
Applesoft, peuvent enfin être 
utilisés pour y stocker une ou 
plusieurs tables alphanumériques. 


37888 (59400) 


37893 


37898 
37903 


NOP!1 = INT (4096 LONGENR) 
NOP2 = 2 * NOP1-1 

NOP3 = NOP1 + NOP2 
NOP4 = NOP1 -- NOP3 


Ïl est important de noter que 
toutes les chaînes de caractères 
doivent avoir la même longueur, 
cette longueur étant fixée au 
départ (voir ci-dessous). 


Pratiquement.… 


* En premier lieu, il faut charger 
le programme par : 
BLOAD LANG1.0BJ0,A$9400 


* puis placer une HIMEM: 
37888 afin de ne pas écraser le 
programme LANG1.0BJO par 
les variables du programme 
Applesoft. 

- il faut ensuite définir une 
variable E$ en l'initialisant à la 
longueur des chaînes de la table. 
Si la longueur est 8, faire par 
exemple E$ = "BONJOUR!". 
Cette variable E$ est indispen- 
sable ; elle doit être la première 
variable rencontrée dans le 
programme Applesoft ; enfin, on 
ne doit jamais l'écourter maïs il 
est possible de rajouter des blancs 
pour conserver la même 
longueur : Ef="HELLO ‘. 


- On peut écrire ou lire une 
chaîne sur la carte langage en 
faisant : 


CALL37888,LNG,FONC,IH,IB 


où LNG est la longueur des 
chaînes (c'est-à-dire la longueur 
initiale de E$), FONC vaut 1en 
lecture, 2 en écriture, IH est 
l'indice haut et 1B l'indice bas du 
numéro de la chaîne (c'est-à-dire 
son numéro est IH * 256 + 1B). 
Ce numéro doit être compris entre 
1 et4 * (4096 / LNG) car la carte 
langage peut stocker 4 fois 4 Ko 
et 4Ko = 4096 octets. 

L'indice IH peut aussi être 
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considéré comme un numéro de 
table dans une gestion de 1 à 4 
tables de 256 chaînes. 

Par exemple, la lecture de la 
39ème chaîne donne, si la 
longueur est 32 : 


CALL 37888,32,1,0,39 : PRINT 
E$ 


Ceci est équivalent à PRINT 
E$(39) pour un tableau de 
chaines en Applesoft. 

Comme le montre le programme 
EXEMPLE-LANGI, ïl est 
possible d'abréger l'écriture de la 
syntaxe si certains paramètres 
restent inchangés, maïs il faut 
alors changer l'adresse du CALL. 
CALL37888,LNG,FONC,IH,IB 
(est obligatoire pour le premier 
appel) 
CALL37894,FONC,IH,1B 

(pour les autres appels) 

CALL 37900,IH,IB 

(si FONC ne change pas) 


CALL 37906,1B 


(si IH ne change pas) 


CALL 37912 

(si rien a changé) 

Des contrôles sont effectués et les 
messages d'erreur sont les 
suivants : 


+ si FONC <> 1 et FONC <> 2: 
cela correspond à un 
ILLEGAL QUANTITY 
ERROR 

+ silH * 256 + IB > INT (4096 
/ LNG) * 4 on obtient un OUT 
OF MEMORY ERROR 

* si c'est une erreur sur E$ : 
STRING TOO LONG ERROR 
(en fait c'est l'inverse, maïs le 
message STRING TOO 
SHORT n'existe pas !). 


Techniquement.… 


L'adresse de début choisie 
($9400, soit 37888 en décimal) 
peut être modifiée, à condition de 
modifier les quelques JSR du 
programme. Ii faut bien faire 





Programme EXEMPLE-LANG1 


10 REM EXEMPLE 


20 REM LLLLLLLL LL 11111111:11511211111111/21L)E)] 


235 E$ = BL$ 


attention car 3 octets sont 
réservés, à la fin de 
LANGI.OBJO, pour y stocker 
des variables, afin de ne pas 
encombrer la page zéro. Le 
programme gère la mémoire en 4 
blocs de 4 Ko, les chaînes y sont 
enregistrées bout à bout. 


Après la saisie des paramètres par 
la routine GETBYTC, le 
programme calcule le nombre 
d'enregistrements par blocs, soit 
4096/LNG et on déduit le dernier 
numéro de chaque bloc (NOP1, 
NOP2, NOP3 et NOPA4),. Il 
calcule ensuite ADR, adresse 
concernée sur la carte langage, en 
fonction du bloc auquel appaïtient 
l'enregistrement demandé ($D000 
- $DFFF/BANKI1 pour le 
BLOCI, $D000 - S$DFFF/ 
BANK? pour le BLOC4, $E000 
- $EFFF pour le BLOC2 et 
$F000 -$FFFF pour le BLOC3). 
Enfin, BUFFER est l'adresse de 
la variable Ef. 


A noter que la fonction lecture 


220 E$ = BL$: CALL (37888 + 12),0,39: PRINT E$ 
230 REM ET POUR FINIR 


240 CALL (37888 + 18),39: PRINT E$ 


250 END 


30 REM* PROGRAMME DE DEMONSTRATION 


40 REM*° UTILISATION DE LANG1.0BJ0 


50 REM* H.ROY-CONTANCIN 


Programme LANG1 


60 REM CELLELLLL LILI LL LILAS SL LS LA LELLELLLLLLES 


70 HIMEM: 37888: REM INDISPENSABLE 


75 E$ = "JE SUIS LE NUMERO 39 HA HA HA HA”:D$ = 


. CHR (4) 0000: 
76 REM E$ DOIT ETRE LA PREMIERE VARIABLE DU 0000: 
PGM 0000: 
80 PRINT D$"BLOAD LANG1.0BJ0,A$9400" TA 
90 BL$=" ". REM 32 D. 
BLANCS dn 
100 LNG = 32:ECR = 2:LEC = 1 ; 
110 CALL 37888,LNG,ECR,0,39: REM ECRITURE DU 39 OAQE* 
120 E$ = BL$: REM ON EFFACE 0018: 
130 CALL 37888,LNG,LEC, 039: PRINT E$: REM 0012: 
RELECFURE 00F9: 
140 REM ET MAINTENANT 259 > 255 001C: 
150 1= 259:E$ = "ET MOI ET MOI LE 259 ME VOICI OK" 001E: 
155 CALL 37888,LNG,ECR, INT (1/256),1- INT (1/256)* ce: 
256 1 
160 ES = BL$ o 
170 CALL 37888.LNGLEC, INT (1/256).1 - INT (1/256) * 
256: PRINT E$ Diet 
180 E$ = BL$ RS: 
190 REM POUR LES PARESSEUX E982: 
200 CALL (37888 + 6),LEC, INT (1/256),1- INT (1/256) * E2F2: 
256: PRINT E$ EB63: 
210 REM ENCORE PLUS COURT EB53: 





SOURCE FILE: LANGI 


(Assembleur Toolkit) 

RARAKRÉARKRRRAKHRRRRRÉRRRRXÉKE 
2 * IANG1 * 
3 * CARTE IANGAGE BASIC * 
4 + 03/02/85 x 
5 * H.ROY-CONTANCIN d 
6 KAKHARAKRKARÉKERÉRXRÉRRAKRÉXKEX 
7 NOPi EQOU $0B 
B NOP2 EQU 518 


9 NOP3 EQOU $IlA 
10 NOP4 EQOU $F9 
11 BUFFER EQU $1C 
12 ADR EQU $1lE 
13 ROM EQU $co082 
14 RAM EQU $C083 
15 LINUM  EQU $50 
16 GETADR EQU $E752 
17 GETBYTC EQOU $E6FS5 
18 FMULTT EQU $E982 
19 GIVAYF EQU S$E2F2 
20 MOVEAF EQU S$SEB63 
21 MOVEFA EQU $EBS3 
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effectue le filtrage des caractères 
de code ASCII non compris entre 
$20 et $60 pour éviter tout 
problème en cas de lecture d'une 
zone de la mémoire non 
initialisée. 

Si E$ est initialisée par E$ = 
"A... A" (32 A), puis si B$ - 
"<S0 blancs>", le fait d'écrire E$ 
= B$ attribue à E$ l'adresse de la 
chaîne B$ : ainsi, le résultat de la 
recherche se trouve alors dans B$ 
et E$ a une longueur 50 
(ESA A  ”, 32 A et 16 
blancs). Pour éviter cela, 11 suffit 
de remplacer E$ = B$ par E$ = 
B$ se nie 


Remarquons, pour conclure, que 
ce programme permet non 
seulement de gagner de la place 
mémoire, mais également de 
transmettre des tables entre 
plusieurs programmes puisque la 
carte langage n'est pas touchée 
par RUN ou LOAD. Cette seule 
raison peut justifier son emploi en 
zone de sauvegarde de tables. 


NB : J'ai dû utiliser la routine 
ABS après les routines FDIVT 
($EA69) et FMULTT ($E982) 
car dans certains cas 4096 / 32 - 
-128! 





N.D.L.R. 

° Nous avons fait des essais de 
vitesse pour la lecture et l'écriture 
de 450 chaînes de caractères : 


- Avec le programme LANGI, il 
faut 42 secondes; 


- Avec le Disque virtuel 16K 
RWLC (Pom's 12) et un 
fichier à accès direct, 111 


secondes sont nécessaires ; 

- Et enfin, pour Tableau de 
chaînes Applesoft : il est 
préférable d'utiliser FRE(64) 
après le test (Pom's 2) : cela 
prend 39 secondes. 


+ C'est une méthode originale 
pour utiliser la carte langage en 
Applesoft pour y stocker des 
chaînes de longueur fixe. A titre 
de comparaison, on connaissait 
déjà : 


- le DOS sur la carte langage, ce 
qui remonte la HIMEM et 
laisse plus de place pour les 
programmes. 

- le Disque virtuel 16 Ko (en 
fait, il n'y a que 15K 1/4 pour 
les données, car il faut aussi 
stocker le catalogue. 

- Haïfa 64K : on double les 
instructions de l'Applesoft. 


G 








EA69: 22 FDIVT  EQU $EA69 9437:18 52 CNOP3  CLC 

EBAF: 23 ABS EQU $EB8AF 9438:A5 OB 53 LDA NOPI 
EC23: 24 INT EQU $EC23 943A:65 18 54 ADC NOP2 
D419: 25 ERROR  EQU $D419 943C:85 1A 55 STA NOP3 
0069: 26 LOMEM EQU $69 943E:A5 OC 56 LDA NOP1+1 
0000: 27 RARAKKRRRRRLAEAÉÉÉ EX 9440:65 19 57 ADC NOP2+1 
_——— NEXT OBJECT FILE NAME IS LANG1.OBJO 9442:85 1B 58 STA NOP3+1 
9400: 28 ORG $9400 9444:A5 OB 59 CNOP4 LDA NOP1 
9400:20 F5 E6 29 DEB JSR GETBYTC 9446:18 60 CEC 

9403:8E D4 95 30 STX LONGENR 9447:65 1A 61 ADC NOP3 
9406:20 F5 E6 31 ENTREE JSR GETBYTC 9449:85 F9 62 STA NOP4 
9409:8E D3 95 32 STX FONC 944B:A5 OC 63 LDA NOPI+1 
940C:20 F5 E6 33 JSR GETBYTC 944D:65 1B 64 ADC NOP3+1 
940F:8E D5 95 34 STX NOENR 944F:85 FA 65 STA NOP4+1 
9412:20 F5 E6 35 JSR GETBYTC 9451:A9 DO 66 LDA #$D0 
9415:8E D6 95 36 STX NOENR+1 9453:85 1F 67 STA ADR+1 
9418: 38 37 SEC 9455:A9 00 68 LDA. #$00 
9419:AD D6 95 38 LDA NOENR+H 9457:85 1E 69 STA ADR 
941C:E9 O1 39 SBC #$01 9459:A5 FA 70 TESTO LDA NOP4+1 
941E:8D D6 95 40 STA NOENR+1 945B:CD D5 95 71 CMP NOENR 
9421:AD D5 95 41 LDA NOENR 945E:90 43 72 BCC ERREUR 
9424:E9 00 42 SBC #$00 9460:D0 09 73 BNE TESTI 
9426: 8D D5 95 43 STA NOENR 9462:A5 F9 74 LDA NOP4 
9429:20 9D 95 44 JSR CALCNOPI 9464:CD D6 95 75 CMP NOENR+1 
942C:18 45 CNOP2  CLC 9467:90 3A 76 BCC ERREUR 
942D:A5 0B 46 LDA NOPI 9469:F0 38 Fà BEQ ERREUR 
942F:2A 47 ROL A 946B:A5 1B 78 TESTI LDA NOP3+1 
9430:85 18 48 STA NOP2 946D:CD D5 95 79 CMP  NOENR 
9432:A5 OC 49 LDA NOP1+1 9470:90 74 80 BCC BLOC4 
9434:2A 50 ROL A 9472:D0 09 81 BNE TEST? 
9435:85 19 51 STA NOP2+1 9474:A5 1A 82 LDA NOP3 
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9476:CD 
9479:90 
947B:F0 
947D:A5 
947F:CD 
9482:90 
9484 :DO 
9486:A5 
9488:CD 
948B:90 
948D:F0 
948F:A5 
9491:CD 
9494: 90 
9496:D0 
9498:A5 
949A:CD 
949D : 90 
949F:F0 
94A1:B0 
94A3:A2 
94A5:4C 
94A8 : AD 
94AB:AC 
94AE:20 
94B1 :A2 
94B3: 

94B3:18 
94B4:90 
94B6:A9 
94B8:85 
94BA:AD 
94BD:38 
94BE:E5 
94C0:A8 
94C1 :AD 
94C4:E5 
94C6:20 
94C9:A2 
94CB: 

94CB:18 
94CC:90 
94CE:A9 
94D0:85 
94D2:AD 
94D5 : 38 
94D6:E5 
94D8:A8 
94D9:AD 
94DC:E5 
94DE:20 
94E1:A2 
94E3: 

94E3:18 
9 4E 4 : 90 
94E6:AD 
94E9:38 
94EA:E5 
94EC:A8 


95 


95 


95 


95 


95 


D4 


95 


95 


95 


95 


95 


95 


95 


95 


95 


95 


86 


99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


TEST2 


TEST3 


ERREUR 


BLOC1 


* BANK1 


BLOC2 


* BANK1 


BLOC3 


LDX 


NOENR+1 
BLOC4 
BLOC4 
NOP2+1 
NOENR 
BLOC3 
TEST3 
NOP2 
NOENR+1 
BLOC3 
BLOC3 
NOP1+1 
NOENR 
BLOC2 
BLOCI 
NOP1 
NOENR+1 
BLOC2 
BLOC2 
BLOCI 
#$4D 
ERROR 
NOENR 
NOENR+1 
CALCADR 
#$00 


(C083+0) 


CLC 
BCC 
LDA 
STA 
LDA 
SEC 
SBC 
TAY 
LDA 
SBC 
JSR 
LDX 


TESTFON 
#$EO 
ADR+1 
NOENR+1 


NOP1 


NOENR 
NOP1+1 
CALCADR 
#$00 


(C083+0}) 


CLC 
BCC 
LDA 
STA 
LDA 
SEC 
SBC 
TAY 
LDA 
SBC 
JSR 
LDX 


TESTFON 
#$FO0 
ADR+1 
NOENR+1 


NOP2 


NOENR 
NOP2+1 
CALCADR 
#$00 


* ENCORE BANK1 


BLOC4 


CLC 
BCC 
LDA 
SEC 
SBC 
TAŸY 


TESTFON 
NOENR+1 


NOP3 


94ED:AD 
94FO0:E5 
94F2:20 
94F5 :A2 
94F7: 

94F7:AD 
94FA:C9 
94FC:F0 
94FE:C9 
9500:D0 
9502:20 
9505:BD 
9508:BD 
950B:AC 
950E:88 
950F:B1 
AS" 

9511:C9 
9513: 90 
9545:C9 
9517:B0 
9519:91 
951B:98 
951C:D0 
951E:AD 
9521:60 
9522:A9 
9524:18 
9525:90 
9527:20 
952A:BD 
952D:BD 


9530:AC 
9533:88 
9534:B1 
9536: 91 
9538:98 
9539:D0 
953B:AD 
953E:60 
953F:A2 
9541:20 
9544: 

9544:A0 
9546:B1 
9548:C9 
954A:D0 
954C:C8 
954D:B1 
954F:C9 
9551:D0 
9553:C8 
9554:B1 
9556:CD 
95:59:90 
955B:C8 
955C:B1 
955E: 85 
9560:C8 


95 


95 


95 


95 


co 


CO 
95 


co 


95 
CO 
CO 
95 


CO 


D4 


95 


LDA 
SBC 
JSR 
LDX 


NOENR 
NOP3+1 
CALCADR 
#$08 


* BANK2 (C083+08=C08B} 


TESTFON LDA 


LEC JSR 


L1 DEY 
LDA 


FONC 
#$02 
ECRIT 
#$01 
ERREUR2 
CALCBUF 
RAM, X 
RAM,X 
LONGENR 


(ADR) ,Y 


* CARACT INDESIRABLES? 


CMP 
BCC 
CMP 
BCS 
E1l STA 
TYA 
BNE 
LDA 
FIN RTS 
BIDON LDA 
CEC 
BCC 
ECRIT JSR 
LDA 
LDA 
LDY 
El DEY 
LDA 
STA 
TYA 
BNE 
LDA 
RTS 
ERREUR2 LDX 
JSR 


#$20 

BIDON 

#$60 

BIDON 
(BUFFER) ,Y 


Li 
ROM 


#$20 


E1l 
CALCBUF 
RAM,X 
RAM, X 
LONGENR 


{BUFFER}),Y 
{ADR) ,Y 


E1 
ROM 


#$35 
ERROR 


RRRRKRRRRRKRRRERRRE 


CALCBUF LDY 
LDA 
CMP 
BNE 
INY 
LDA 


#$00 
{LOMEM) ,Y 
#$45 
ERREURI 


(LOMEM}) ,Y 
#$80 
ERREUR 


{LOMEM) ,Y 
LONGENR 
ERREURI 


{LOMEM) ,Y 
BUFFER 








Vos textes en direct de votre ordinateur 
a nos photocomposeuses 


G d | n de te M P S et éCO n 0 M | e Les textes de vos articles, catalogues, 


annuaires ou brochures saisis sur 
en votre micro-ordinateur sont envoyés 
directement sur notre 
extes photocomposeuse 


Nous vous évitons ainsi, 
le coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 


Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 


13 et 15, avenue du Petit-Parc - 94300 VINCENNES 





9561:B1 69 201 LDA  (LOMEM),Y 959D:A9 10 231 CALCNOP1 LDA #$10 
9563:85 1D 202 STA BUFFER+HI 959F:A0 00 232 LDY  #$00 
9565 :60 203 RTS 95A1:20 F2 E2 233 JSR GIVAYF 
9566:20 F2 E2 204 CALCADR JSR GIVAYF 95A4:20 63 EB 234 JSR MOVEAF 
9569:20 63 EB 205 JSR MOVEAF 95A7:A9 00 235 LDA #$00 
956C:A9 00 206 LDA #$00 95A9:AC DA 95 236 LDY  LONGENR 
956E:AC D4 95 207 LDY  LONGENR 95AC:20 F2 E2 237 JSR GIVAYF 
9571:20 F2 E2 208 JSR GIVAYF 95AF:20 69 EA 238 JSR FDIVT 
9574:20 82 E9 209 JSR FMULIT 95B2:20 23 EC 239 JSR INT 
9577:20 23 EC 210 JSR INT 95B5:20 AF EB 240 JSR ABS 
957A:20 AF EB 211 JSR ABS 95B8:A5 50 241 LDA LINUM 
957D:A5 50 212 LDA LINUM 95BA:48 242 PHA 

957F:48 213 PHA 95BB:A5 51 243 LDA  LINUM+1 
9580:A5 51 214 LDA LINUM+#1 95BD:48 244 PHA 

9582:48 215 PHA 95BE:20 52 ET 245 JSR GETADR 
9583:20 52 E7 216 JSR GETADR 95C1:A5 50 246 LDA  LINUM 
9586:A5 50 217 LDA LINUM 95C3:85 0OB 247 STA NOPI 
9588:85 1E 218 STA ADR ISCS:AS 51 248 LDA LINUM+I 
958A:A5 51 219 LDA LINUM+1 95C7:85 OC 249 STA NOP1+1 
958C:18 220 CLC 9$C9: 68 250 PLA 

958D:65 1F 221 ADC ADR#1 95CA:85 51 251 STA LINUM+I 
958F:85 1F 222 STA ADR+#1 95CC:68 252 PLA 

9591:68 223 D 95CD:85 50 253 STA LINUM 
9592:85 51 224 STA LINUM+1 9SCF : 60 254 RTS 

9594:68 225 PLA 95D0:4C 19 D4 255 JMP  ERROR 
9595:85 50 226 STA  LINUM 95D3: 256 **** ZONES À RESERVER 
9597:60 227 RTS 95D3: 257 FONC EQU * 
9598:A2 BO 228 ERREURL LDX #$BO 95D4: 258 LONGENR EQU +1 
959A:4C 19 D4 229 JMP  ERROR 95DS: 259 NOENR EQU *+2 
959D: 230 *xktkkxx +*kx SUCCESSFUL ASSEMBLY: NO ERRORS 
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DOS 3.3 ou ProDOS 


à la carte 


ous avons déjà vu 

comment faire coexister 

sur une même disquette 

des fichiers DOS 3.3 et 
des fichiers ProDOS. Ceci n'était 
utile que pour la circulation 
simultanée des deux types de 
fichiers, sans que l'on puisse 
faire d'échanges entre les deux 
systèmes. Aujourd'hui, nous 
rendons cela possible mais à une 
condition : posséder une carte 80 
colonnes étendue. (En fait, il est 
possible de se débrouiller avec 
ses seuls 64Ko, mais au prix 
d'une multiplication des accès 
disques et de la neutralisation 
d'une bonne partie de mémoire : 
21Ko pourles deux DOS). 


Utilitaires DOS... 
...sous ProDOS 


Vous pourrez alors passer quasi 
instantanément d'un DOS à 
l'autre tout en gardant en 
mémoire le programme Basic. 
Vous pourrez également le faire 
en cours d'exécution d'un 
programme (si, si !) et, enfin, 
vous garderez le bénéfice des 
éventuels utilitaires que le DOS 
3.3 avait mis au chaud sous ses 
buffers. 


Exemple d'utilisation : vous 
pourrez dorénavant convertir de 
manière non aveugle. Vous 
chargez un programme DOS, 
vous le listez, vous faites les 
éventuelles modifications 
nécessitées par l'adaptation à 
ProDOS et vous le sauvegardez 
sous ProDOS. Ou encore, vous 
chargez un programme ProDOS, 
vous passez sous DOS pour 
bénéficier des services de 
RENUMBER, HOLD et MERGE 
de l'Applesoft Toolkit et vous 
revenez sauvegarder le résultat 
sous ProDOS. 


L'art et la manière 


Il s'agit d'utiliser la mémoire 
auxiliaire 64 Ko pour stocker les 
images des deux systèmes 
d'exploitation. Pour réaliser la 
permutation, on commencera par 
sauvegarder l'état de l'OS en 
fonction, et on appellera son 
collègue. Le tout à l'aide de la 
routine AUXMOVE ($C311). 


Quelques petites précautions : 


* brancher et débrancher les 
vecteurs d'interception des 
entrées sorties, [/O Hooks, des 
OS (CSSWON et CSSWOFF 
de DOS 3.3) ; 


- rétablir le mode TRACE 
correct ProDOS laisse 
toujours Applesoft en mode 
TRACE et recopie en page 
globale BI ($BE41) la vraie 
valeur du flag TRACE ; 


+ de la même manière, établir le 
lien entre HIMEM DOS 3,3 et 
HIMEM ProDOS : si pour 
DOS, la région située 
au-dessus de HIMEM est bien 
définitivement protégée (à 
moins de modifier 
MAXFILES, ce qui n'est pas 
souhaitable), il n'en est pas de 
même pour ProDOS qui 
maintient un tampon de 1 Ko 
au dessus de HIMEM à des 
fins de ramasse-miettes, et 
surtout qui descend tout ce 
monde de 1 Ko chaque fois 
qu'il ouvre un fichier. 


Pour résoudre ce dernier 
problème, il faut recourir à 
l'allocation de buffer autorisée 
par ProDOS. La routine 
correspondante prend en entrée le 
nombre de pages à allouer et 
retourne l'adresse de la première 
page attribuée au tampon. Ce 
nombre est en fait la valeur du 
pointeur sur le sommet des 
tampons de fichiers (TOPBUFF). 


ou comment conserver 


Seul l'espace situé au dessus de 
ce sommet est effectivement 
protégé de modifications 
intempestives {voir figure). 

Enfin, dernier problème, on a 
essayé d'utiliser au maximum les 
adresses situées dans les "pages 
globales" ($BE et $BF), seules 
celles-ci sont assurées d'une forte 
stabilité entre les différentes 
versions ProDOS, mais il a fallu 
recourir à 3 adresses extérieures. 
Pour l'accrochage ($9A8D pour 
les seuls 1/0 Hooks ou $9A7E 
pour y ajouter la restauration du 
flag TRACE) et pour le 
décrochage de ProDOS, les 
adresses ne changent pas dans les 
versions 1.0, 1.0.1 et 1.0.2. Par 
contre, la routine fermant tous les 
fichiers s'est légèrement déplacée 
de $B548 (1.0) à $B54C (1.0.1 
et 1.0.2). On sera donc prudent 
pour l'utilisation du programme 
proposé avec d'autres versions 
futures de ProDOS. 


La théorie : 
DOUBLEDOS 


I1 se compose d'une partie 
d'initialisation réalisant tous les 
transferts nécessaires en mémoire 
auxiliaire, ainsi que la mise hors 
service du pseudo-disque /RAM 
et d'une partie "résidente" 
permettant de commuter le 
Système d'exploitation par un 
seul et même CALL 768. 
Remarque : si l'on est perdu (3.3 
ou Pro ?), un moyen extrême- 
ment simple : faites RETURN en 
début de ligne ; ProDOS passe 
simplement à la ligne suivante, 
tandis que DOS 3.3 ajoute un 
retour chariot faisant ainsi sauter 
une ligne. Simple, mais efficace. 


Le programme démarre en 
supposant que le DOS 3.3 a été 
chargé en mémoire ; le corps de 
3.3 de $4600 à $S6FFF et une 
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l'acquis 3.3 sous Pro... 


image de sa page 3 juste devant, 
de $45D0 à $45FF. 


° $2B1-$2EE : c'est la routine 
(empruntée à Beneath Apple 
ProDOS) mettant hors service le 
volume /RAM, situé convention- 
nellement en slot 3, drive 2. On 
pourrait envisager de simplement 
protéger les zones concernées 
dans le VBM de /RAM à l'aide 
d'un appel à MLI, mais la 
correspondance numéro de bloc, 
page mémoire auxiliaire est loin 
d'être évidente : pour les blocs de 
$D à $5C, il faut retirer 8 au 
numéro de bloc, diviser le résultat 
par 17 et mettre les blocs dans la 
mémoire à patir de $2000 vers 


mémoire auxiliaire, de sa page 3 
immédiatement en dessous et du 
bloc DOS et sa page 3 encore en 
dessous. 

+ _$300-$304 : aiguillage du com- 
mutateur. On teste simplement le 
MSB du vecteur d'interruption 
masquable IRQ en $3FE-$3FF. 
Celui-ci vaut $FF65 (entrée dans 
le moniteur) pour DOS 33 et 
$BFEB adresse du Handler 
d'interruption ProDOS, qu'il est 
déconseillé de modifier. 


* les deux morceaux (Pro -> 3.3 
et réciproquement) utilisent tous 
les deux les mêmes sous- 
programmes DOMOVES et 


François Sermier 


auxiliaire. On utilise une table des 
mouvements à effectuer en 
$374-$39E ; les 6 octets suivants 
$39E ne sont utilisés qu'une fois 
lors de l'initialisation et 
deviennent donc disponibles 
immédiatement. 

+ $30E-$31F : avant d'appeler 
DOS, on ferme tous les fichiers 
pendants (à l'exception d'un 
éventuel fichier EXEC, il faut 
donc éviter de commuter dans un 
EXEC si l'on tient à ce qui se 
trouve après HIMEM) (voir 
remarque ci-dessus pour 
l'adresse de la routine 
CLOSEALL). Puis on s'enquiert 
de TOPBUFF en demandant 








( 


A l'initialisation 


$C000 


ProDOS 
Top of Buffers (1) : 
(SBCE8) 1) 
$9 A00 : 
Espace 


ramasse-miettes 


{1) : Top ef Buffers n'est mis 
À jeur que lors d'une allocation 
de Buffer. A l'initialisatien, 
cctte variable n'est pas définie 
{SBC88 = 0) 







Après allocation 
d'un buffer 
utilisateur 


Allocation de la mémoire vive 


Lors de l'utilisation 
de n fichiers 


"Espace 
utitisateur* 
n buffers 

fichiers 


Espace 
—| ramasse-miettes 


Les (n+1) Ko situés entre 
HOMEM et Top of Buffers ne 
4ont pes Pretégés bien Que 
situéssu-dessus de HIMEM. 


Sous DOS 


3 buffers 
fichiers 


$C000 






$9D00 


$9600 HIMEM 












Le nombre à de fichiers 
ouveits peut varier de O à & 
à tout instant entrabiant 

le déplacement de tent ce 
qui est en-dessous. 





$BFFF à l'exception de ceux 
dont le reste de la division par 17 
vaut 1 qui vont successivement 
de $12 à $18. Et le reste à 
l'avenant : les blocs $5D-$5F 
vont en $1A-$1F, /RAM utilise 
les deux bancs $D0-$DF... 


+ $2EF-$2FF: transfert de 
ProDOS à la même adresse en 
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DOMOVE pour réaliser les 
transferts. Comme sa consœur 
MOVE du moniteur, AUXMOVE 
déplace une zone mémoire de 
(AI)-(A2) vers la zone débutant 
en (Ad), le sens du mouvement 
est donné par le bit de retenue : 
s'il est mis à 1, le transfert 
s'effectue vers la mémoire 





l'allocation de 0 page... En effet, 
la valeur de TOPBUFF est 
stockée en $BC88 (donc hors 
pages globales alors que 
GETBUFR y est) mais il n'est 
mis à jour que lors d'allocation de 
buffers (fichiers ou utilisateurs) et 
pas lors de la libération. La 
routine GETBUFR retourne la 


17 








18 


valeur correcte. Si TOPBUFF 
vaut $9A, c'est que l'on a rien 
modifié, on ne touche donc à 
rien ; s'il est différent, c'est qu'il 
est inférieur ou égal à $96, il faut 
donc remonter HIMEM DOS de 
1K (4 pages) pour tenir compte 
dutampon ramasse miettes. 


+ $332-$344 : avant d'entrer 
dans ProDOS, on vérifie si le 
haut de la mémoire n'a pas été 
abaissé, dans ce cas, on alloue un 
buffer de taille suffisante pour 
faire descendre TOPBUFF à la 
hauteur du HIMEM DOS. Du 
coup HIMEM ProDOS est 
automatiquement plus petit de 
1Ko que pour DOS. Remarquez 
que dès que l'on alloue quelque 
chose, on avale automatiquement 
les pages $96 à $9A, qui ne 
contiendront rien. C'est-à-dire, la 
première fois que l'on descend le 
haut de la mémoire, on le descend 
d'un minimum de 5 pages, y 
compris pour protéger un 
programme d'une vingtaine 
d'octets. Les autres fois on ne 
descend que du nécessaire. 


La pratique 


La suite des opérations est la 

suivante : 

+ _Booter une disquette DOS : 

+ Faire: 
JCALL-151 passe en moniteur 
*45D0<3D0.3FFM copie page 3 
*4600<9600.BFFFMcopie Dos 
*3D0G retour au Basic 
JBSAVE DOS, A$4SD0, L$ 
2A30 sur une disquerte 3.3 

+ CONVERTIir DOS sur une 
disquette ProDOS 

*< Assembler DOUBLEDOS (si 
l'on n'a qu'un assembleur 
DOS, on peut l'utiliser mais il 


faut évidemment de nouveau 
CONVERTir) 


* Il ne reste plus qu'à enchaîner 
(éventuellement dans un 


STARTUP) en faisant BLOAD 
DOS puis -DOUBLEDOS.0 
pour se trouver en situation de 


commuter à tout moment par 
un simple : CALL 768. 


Il peut être utile de commencer à 
utiliser cette commutation sur une 
disquette mixte ProDOS/DOS 3.3 
et de sauvegarder la partie 
résidente du commutateur sur la 
partie DOS 3.3 de la disquette. 
En effet, la page 3 est queique 
peu utilisée (euphémisme...) et 
vous risquez de la perdre et donc 
de ne plus pouvoir revenir sous 
ProDOS qu'en rebootant ou en 
réintroduisant le code machine à 
la main. Donc, dès le premier 
CALL768, faire : 


SAVE DOUBLEDOS.OBJ,A$ 
300,L$9E par exemple (on 
laissera tomber les tronçons 
d'initialisation). 


On se convaincra de l'efficacité 
du système en expérimentant en 
mode direct et en entrant des 
programmes du genre : 


10 PRINT CHRS(4) ; "CATA 
LOG" 

20 CALL768 

30 PRINT CHR$(4) ; "CATA 
LOG" 

40 CALL768 


ou encore pour utiliser APA, voir 
le programme LOADAPA. 
Apparemment, les diverses 
commandes APA, fonctionnent 
aussi sous ProDOS sauf AUTO 
(grande perte... et peut-être 
MERGE). Quelques remarques 
enfin, sur LOADAPA. 


1.130 est indispensable car 
RBOOT vient en pages 2 et 3. 

1.140 on se saisit du vecteur de 
l'Ampersand dans la page 3 
DOS, et l'on POKE dans la page 
3 ProDOS. (Il est d'ailleurs 
préférable de les POKEr dans 





Programme LOADAPA 


100 CALL 768. REM ----- Je passe en 3.3 


105 REM 


110 PRINT CHRS (4) ; "BLOAD RBOOT" 
120 CALL 520 :AD = USR (0) , "APA" : CALL AD 





XTRNADDR ($BES0-51), 
Handler de commandes externes 
de ProDOS. Ceci lui permettrait 
ainsi de reconnaitre également ces 
commandes. Evidemment, ici, ce 
n'est guère utile. Enfin, on notera 
qu'au premier passage de DOS 
vers ProDOS, après avoir chargé 
APA, vous pouvez perdre les 
valeurs de quelques variables 
alphanumériques, car HIMEM est 
arrondi à la page inférieure pour 
les besoins de ProDOS. Mais une 
fois cet ajustement effectué, vous 
pouvez passer sans problème 
d'un système à l'autre en 
conservant toutes vos variables, y 
compris en cours d'exécution. 


Jonglez bien, et si vous êtes 
perdus, n'oubliez pas : un simple 
RETURN suffit. 


NDLR : APA, logiciel commer- 
cial ne f'gure pas sur la disquette 
d'accompagnement. G 


Récapitulation 
DOUBLEDOS.OBJ 


0300- AE FF 03 E8 FO 24 20 O0 
0308- 9A AD 41 BE 85 F2 20 4C 
0310- B5 A9 00 20 F5 BE C9 9A 
0318- FO 07 18 AS 74 69 04 85 
0320- 74 A2 17 20 49 03 20 51 
0328- A8 60 20 FQ 9E A2 29 20 
0330- 49 03 AS 74 C9 96 FO OD 
0338- A9 00 85 73 20 FS BE 38 
0340- E5 74 20 F5 BE 20 7E 9A 
0348- 60 38 20 SA 03 38 20 SA 
0350- 03 18 20 SA 03 18 20 SA 
0358- 03 60 08 A9 07 ED 74 03 
0360- 99 3C 00 CA CO 06 DO 02 
0368- 88 88 88 10 FO 28 8A 20 
0370-— 11 C3 AA 60 DO 6A FF 6A 
0378- DO 03 00 6B FF 94 00 96 
0380- DO 03 FF 03 DO 95 00 96 
0388- FF BF 00 96 DO 95 FF 95 
0390- DO 03 DO 03 FF 03 DO 6A 
0398- 00 96 FF BF 00 6B DO 


sur disquette DOS 3.3 


130 PRINT CHR (4) ; "BLOAD DOUBLEDOS;OBJ" 
140 LAMPV = PEEK (1014) :HAMPV = PEEK (1015) 


150 CALL 768: REM ----- Je reviens en ProDOS 


155 REM 


160 POKE 1014,LAMPV: POKE 1015,HAMPV 


180 NEW 


170 PRINT : PRINT “Me revoilà en ProDOS" 
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Programme DOUBLEDOS 


(Assembleur Procode) 
SOURCE FILE #01 =>/POMS/DOUBLEDOS 
0000: 1 LST NOA 
0000: 2 RRRRRRRRRRRRRERRRRRRRRRÉRÉRÉRRÉRÉRÉ 
0000: 3 ; {change ProDOS <--> DOS 
0000: 4 RRRRRRRRRRR RÉ RER RER RÉ 
——--- NEXT OBJECT FILE NAME IS /POMS/DOUBLEDOS.0 
02B1: 02B1 S ORG $2B1 
02B1: 0073 6 HIMEM EQU $73 
02B1: 003€ 7 Al EQU S3C 
02B1: 003E 8 A2 EQU $3E 
02B1: 0042 9 A4 EQU s42 
02B1: o0F2 10 TRACE ÉQU sF2 
02B1: A851 ii HOOKDOS EQU SA851 
02B1: 9EEO 12 UNHOOKDOS EQU S9EEO 
02B1: 9SA7E 13 HKPROTRCE EQU S9A7E 
02B1: 9A8D 14 HOOKPRO EQU $9A8D 
02B1: 3AO0 15 UNHOOKPRO EQU S9ADO 
02B1: B54C 16 CLOSEALL EQU SB54C 
{V.1.0:5B548) 

02B1: BEOC 17 PRINTERR EQU SBEOC 
02B1: BE41 18 DTRACE EQU SBE41 
02B1: BEFS 19 GETBUFR EQU SBEFS 
02B1: 8r16 20 DEVADR31 EQU SBF16 
02Bl1l: BF26 21 DEVADR32 EQU SBF26 
02B1: BF31 22 DEVCNT EOU SBF31 
02B1: BF32 23 DEVLST EQU SBF32 
02B1: BF98 24 MACHID EQU SBF9B 
02B1: c311 25 AUXMOVE EQU Sc311 
02B1: 26 ; 
02B1:AD 98 BF 27. LDA  MACHID 
02B4:29 30 28 ANB 4530 
02B6:C9 30 29 CMP #530 
02B8:F0 05 02BF 30 BEQ OK128 
02BA:A9 03 31 NORAM LDA #3 

‘Device not connected 
02BC:4C OC BE 32 JUMP PRINTERR 
02BF:AD 16 BF 33 OK128 LDA DEVADR31 
02C2:CD 26 BF 34 CMP DEVADR32 
02C5:F0 28 O2EF 35 BEQ TRANSF 
02C7:80 26 BF 36 STA DEVADR32 
O2CA:A0 17 BF 37 LDA DEVADR31+1 
02CD:8D 27 BF 38 STA DEVADR32+1 
O02D0:AE 31 BF 39 LDX DEVCNT 
02D3:BD 32 BF 40 DEVLP LDA DEVLST,X 
02D6:29 70 41 AND #570 
02D8:C9 30 42 CMP #530 
02DA:F0 05 02E1 43 BEQ GOTSLT 
D2DC:CA 44 DEX 
02D0:10 F4 02D3 45 BPL DEVLP 
020F:30 D9 02BA 46 BMI NORAM 
02E1:BD 33 BF 47 GOTSLT LDA DEVLST+1,X 
02E4:90 32 BF 48 STA DEVLST, X 
02E7:F0 03 02EC 48 BEQ REMOVE 
02E9:E8 50 INX 
O02EA:D0 F5 O2E1 51 BNE GOTSLT 
O2EC:CE 31 BF 52 REMOVE DEC DEVCNT 
D2EF: 53 ; initial transfert --> /RAM 
O2EF:A2 2F 54 TRANSF LDX #47 
92F1:38 ss SEC 
02F2:20 SA 03 s6 JSR DOMOVE 
02FS5S:A2 17 S7 LDX #23 
02F7:38 58 SEC 
02F8:20 SA 03 5'a JSR DOMOVE 
02FB: 3B 60 SEC 
02FC:20 SA 03 6] JSR DOMOVE 
02FF:60 62 RTS 
0300: 63 : 
0300: 64 ; partie résidente 
0300:AE FF 03 65 ENTREE LDX S3FF 
0303:E8 66 INX 


0304:F0 
0306: 

03C6:20 
0309:AD 
030C:85 
030E: 20 
0311:A9 
0313:20 
0316:c9 
0318:F0 
031A:18 
031B:AS5 
031D:69 
031F:85 
0321:A2 
0323:20 
0326:20 
0329:60 
032A: 

032A:20 
032D:A2 
032F:20 
0332:A5 
0334:c9 
0336:F0 
0338:A9 
033A:85 
033C:20 
033F: 38 
0340:E5 
0342:20 
0345:20 
0348:60 
0349: 

0349:38 
034a:20 
034D:38 
034E:20 
0351:18 
0352:20 
0355:18 
0356:20 
0359:60 
0352: 


035A:08 
035B:A0 
035D:BD 
0360:99 
0363:CA 
0364:C0 
0366:D0 
0368:88 
0369:68 
036A:88 
036B:10 
036D:28 
036E:8A 
036F:20 
0372:AA 
0373:60 
0374: 

0374:D0 
037A:00 
0380:00 
0386: 

0386:00 
038cC: 

038C:D0 
0392:D0 
0398:00 
039E: 

039E:D0 
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00 
41 

F2 
4c 
00 
ES 
9A 
07 


74 
04 
74 
17 
49 
51 


ED 
29 
49 
74 
96 
OD 
00 
73 
Fs 


74 


F5 
TE 


SA 


5 A 


SA 


SA 


07 
74 
3C 


06 
02 


FO 


11 


6A 
6B 
03 


96 
95 
03 


96 


45 


9A 
BE 


BS 


BE 


03 
A8 


9E 


03 


BE 


BE 


03 
00 


C3 


032A 


0321 


0345 


036A 


035D 


039E 


S45D0,$6FFF,S6AD0 


67 
68 


69 
70 


71 
T2) 
43 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
34 
gs 
36 
37 
98 
39 
10e 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 


111 
112 
113 
114 
115 
116 
LE7 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 


BEQ CALLPRO 
î 
CALLDOS JSR UNHOOKPRO 
LDA DTRACE 
STA TRACE 
JSR CLOSEALL 
LDA #0 
JSR GETBUFR 
CMP #+S9A 
BEQ CLDOS1 
CLC 
LDA HIMEM+1 
ADC #4 
STA HIMEM+1 
CLDOS1 LIX #23 
JSR DOMOVES 
JSR HOOKDOS 
RTS 
ï 
CALLPRO JSR UNHOOKDOS 
LDX #41 
JSR DOMOVES 
LDA HIMEM+1 
CMP #$96 
BEQ CLPROI 
LDA #0 
STA HIMEM 
JSR  GETBUFR 
SEC 
SBC HIMEM+#1 
JSR GETBUFR 
CLPROI JSR HKPROTRCE 
RTS 
î 
DOMOVES SEC 
JSR DOMOVE 
SEC 
JSR DOMOVE 
CLC 
JSR DOMOVE 
CLC 
JSR DOMOVE 
RTS 
* appel AUXMOVE transfert 
n°(x+1}/6 
DOMOVE PHP 
LDY #7 
DMVi LDA CMDTBL,X 
STA A1l,Y 
DEX 
CPY #6 
BNE DMV2 
DEY 
DEY 
DMV2 DEY 
BPL DMV1 
PLP 
TXA 
JSR  AUXMOVE 
TAX 
RTS 
; arguments de Move OS -->/R?M 
CMDTBL DW S6AD0,S6AFF,S03D0 
DW S6B00,$94FF,$59600 
DW $03D0,503FF,S95D0 
î 
bK 59600,SBFFF,S9600 
î 
DW S95D0,S95FF, S03D0 
DW $03D0,$03FF, S6ADO 
DW $9600,SBFFF, S6B00 
END EQU * 
DW 
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Copie d'écran graphique 


n peut se demander la 

raison d'être d'un tel 

programme puisque 

la ROM de la carte 
d'interface de Silentype com- 
prend déjà une routine de copie 
d'écran graphique activée par 
CTRL-Q. Malheureusement, 
l'image ainsi obtenue m'a 
toujours paru trop petite et c'est 
ce qui m'a amené à écrire ce 
programme qui fournit une image 
quatre fois plus grande que celle 
obtenue par CTRL-Q, soit 
environ un format A4. Bien 
entendu, il a fallu renverser 
l'image qui ne sera plus imprimée 
ligne par ligne mais colonne par 
colonne. 


Le programme Basic n'appelle 
pas de commentaires particuliers. 
Ii se contente de proposer un 
menu permettant, à l'utilisateur, 
de choisir les paramètres de 
l'imprimante et la page graphique 
1 ou 2. 

Noter au passage à partir de 2000 
la routine de lecture du catalogue 
en Basic (seul l'appel de RWTS 
est en langage machine et 
n'occupe que 6 octets). Les noms 
de fichiers binaires sont trans- 
férés dans le tableau F$. Le 
programme ne vérifie pas la 
longueur de ces fichiers, il est 
donc de la responsabilité de 
l'utilisateur de s'assurer qu'il 
s'agit bien d'une page graphique. 
Le contenu des pages graphiques 
peut être vérifié en appuyant sur 
les touches 1 ou 2. 


La routine en langage machine 
RECOP.OBJ est cachée à la fin 
du programme Basic. Elle est 
entièrement relogeable ce qui 
penmet de modifier ce dernier à sa 
guise. Son rôle est de dédoubler 
chaque colonne de la page 
graphique avant d'en imprimer 
chaque octet deux fois de suite. 
Ainsi, un point à l'écran 
correspondra à quatre points sur 
le papier. L'impression peut être 
interrompue en appuyant sur la 
touche ESC, tandis que le mode 
d'impression (uni ou bidirec- 
tionnel) peut être modifié en 
cours d'impression par les 


touches U ou B. 


Enfin, si vous n'avez pas la 

disquette d'accompagnement, 

pour recopier le programme, il 

faut dans l'ordre suivant : 

* recopier le programme Basic 
sans en changer un octet ; 

« vérifier que le pointeur de fin 
de programme ($AF - $B0) 
indique une valeur inférieure à 
$1573. Modifier ce pointeur en 
le mettant à $16BC ; 

* recopier le programme en 
langage machine à partir de 
$1573 et sauver le programme 


Basic ainsi obtenu. . 
Programme 
RECOP.OBJ 


1573- A9 01 20 95 FE 





1578- 
1580- 
1588- 
1590 
1598- 
15A0- 
15A8- 
15B0- 10 F6 
15B8- 
15C0- 04 
15C8- 00 85 
15D0- 66 
15D8- 
19E0- 
15E8- 
15F0- 
15F8- 
1600- 
1608- 88 
1610- O1 
1618- 
1620- 
1628- 
1630- 
1638- 
1640- 10 
1648- DO 07 
1650- 09 
1658- 
1660- 
1668- 10 
1670- 
1678 
1680- 
1688- 08 B1 
1690- 
1698- 
16A0- 
16A8- 
16B0- 4C 93 
16B8- 03 00 


A9 20 
A9 
E6 
CE 
E2 
A2 
28 
4A 48 O8 
4D 
CF 
1F 
68 
CA 
CF 
2A 
E2 
oc 
38 
CF 
8D 
CB 
CO 
[ei es 
10 
DO 
FO 
8D 
DO 05 
CO 
BO 
AO 
2B 
20 
CB 
2A 8D 2B 
20 
EA 
CD 
1E 
FE 20 E3 
00 00 00 


20 
01 
A9 
85 
A6 
02 
66 
66 
14 
91 
85 
4A 
10 
FO 
A9 
e9 
A9 
A9 
AO 
2B 
20 
CO 
A9 
36 
AD 
62 
OF 
A9 
A5 
9F 
FF 
GE 
0B 
AO 
Gr 
0B 
A9 
18 
20 
03 


AB 
85 
00 
CF 
EO 
B1 
CE 
CE 
CF 
2A 
2B 
08 
F6 
04 
00 
CO 
08 
00 
00 
CF 
0B 
90 
1E 
20 
00 
C9 
CF 
00 
EO 
C6 
8C 
20 
CB 
CO 
20 
CB 
04 
90 
AB 
4c 


85 


20 


Programme RECOP.SOURCE 13 IMAGR EQU 526 d'une colonne 
- 14 TEMP EQU S$Cce sRecoit l'image agrandie d'un octet 
{Assembleur Toolkit) 15 TEMOIN EQU SCP :Zèro sl une ligne est vide. 
16 NC EQU $E9 :Numéro de la colonne courante 
17 WL EQU $E2 iNuméro de la ligne courante 
1 ORG 51573 18 HPAGB EQU $R6 ‘Page GR courante 
au" 19 KBD EQU $co00 Adresse du clavier 
3 ARÉRORÉOORÉRORRRRRARÉRARARANAARRÉRÉRARÈRÉRRÉRRRÉRRÉRÉRÉRÉÉRÉREANS 20 KBOSTR EQU Sco10 :Strobe du clavier 
4 “#setneen  RECOFIE D'ECRAN GRAPHIQUE SUR SILEMTYPE *fannnnns 21 IMPRIME EQU SCBOB :Iuprime une barre verticale. 
DATES EE PRESS 22 BARRE EQU SCF2B :Octet imprimé par IMPRIME 
6 annunenn  AUteUT : BECHER GERARD 10/06/84 rétaiersa 23 TEMPO EQU SCBA4 : Temporisation 
7 nannnnnnn trame 24 SENS EQU $CFûl :Détermine le sens G‘impression 
8 ARORARRÉARROSOSORRCORRÉARART ATOS RÉ OO OR OO nR 25 DIR EQU SCFOE ;Uni ou bidirectionne1? 
9 26 PAGE EQU S5CF13 ;Page Haute résolution ($20 ou $40) 
DURE LLLLLLELLLLLLLELLESEEEESL LES LEESESL LES LEESSL LL LL LLLLLLLELEL, 2797 INVERSE EQU SCFIA :Mode normal ou inverse. 
11 HRASL EQU 526 Adresse d'un octet de la page HGR 28 DERQULE EQU SCCAB Déroulement du papier 
12 IMAGL. EQU 352A :Adresse de l'image agrandie 29 RETOUR EQU S$CD02 ‘Retour de la tete en coloane 0. 
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sur Silentype 


Gérard Becher 


30 HPOSN EQU S$Fall sCalcule l'adresse d'un point HGR 

31 CROUT EQU SFD8E ‘Envoie un Retour Chariot 

32 SETVID EQU SFE93 sSinule PR+ 

33 RRRRRDERR Shi bitiiniiiiiiitéiiiiéétiiiétééisisiééitiéiséisésé 

34 * 

35 LDA #1 UC RELLELLELELELLLLEEL EEE ELLE LEE ELLE LEE ELLES EL LELLE LE LLLLE EL ELLES) 
36 JSR SETVID+2 :PR#1 110 * 

37 JSR CROUT ‘Envoie un Retour Chariot 1i1 BIT TEMOIN *La ligne à impriner est-elle vide? 
38 LDA +520 112 BMI IPÆLIN NON => Va l° imprimer 

34 JSR DPEROULE :Déroule le papier 113 IDA #8 OUI => ) 
4ù LDA +>273 sinitialise le numéro de colonne 114 JSR DEROULE ;Se contente de dérouler le papier 
al STA NC : (commence par la dernière colonne) 115 CLC 

42 LDA #<273 116 BCC CLAVIER 

43 STA  NIC+l 117 $ 

44 LDA PAGE :Fixe le numéro de page pour HEOSN 118 *ÉRRERARRRRARRENERREREERR ES été tééétéééééééééitécééééeséés 
45 STA HPAGE 119 * 

46 LDA #0 120 SAUT2 ILDA #0 

47 STA IMAGL 121 BPL DOUBLE iRelais pour remonter jusqu'à DOUBLE 
48 DOUBLE STA NL tinitialise le numéro de ligne 122 * 

49 STA TEMP 123 bééééééétééétééétééétééétébébééééééébèbbébbébbbbbbbbébbébeés 
50 STA TEMOIN : (Reste à 0 si la colonne est vide) 124 * 

51 SUIVANT LDA #$1E fLa lère série de 192 octets sera 125 IMPLIN LDX +2 

52 STA  IMAGH ‘rangée en $1E00, la 2ème en $1r00 126 STX TEMOIN 

53 IDA NL :Calcule l'adresse de base d'un octet 127 LINDIR2 LEDY #0 :$élect{onne le sens 

54 LDX NC :de la page graphique en fonction de 128 STY SENS :de gauche à droite 

55 LDY NC+1 ; son numéro de ligne et de colonne. 129 LINDIRI IDA (IMAGL},Y :Chaqe octet de la série est imprimé 
56 JSR HEOSN 130 STA BARRE ‘aous le foxne d'une double barre 
s7 LDX #2 ‘Décale chaque octet bit par bit 131 JSR IMPRIME  :Imprine une barre verticale 

58 LDA (HBASL),Y :en dédoublant chacun des sept bits 132 JSR TEMPO :Temporisation 

59 DECALI LSR A iL'octet est décalé à droite et 133 JSR IMPRIME ‘Double la barre imprimée. 

60 PHP chaque bit qui tombe dans la retenue 134 JSR TEMPO 

61 ROR TEMP isera réintégré deux feis dans 135 INY ;50ctet suivant 

62 PLP il'octet de travail temporaire TEM 136 CPY 4192 Dernier octet ? 

63 ROR TEMP 137 BEC LINIRI NON => On recommence 

64 DEX ;0n répète ce processus trois fois 138 LDA #4 ;OUI => Avance le papler (LF) 

65 BPL DECALI s3oit six bits dans TEMP 139 JSR DEROULE 

66 LSR À ;Le bit suivant tombe dans la retenue 140 LDA #$1E Pointe vers la lère série d'octets 
67 PHA set formera le septième bit de TEMP 141 STA JIMAGH 

68 PHP :Sauvegarde de ce bit qui n' a été 143 BIT DIR :Bi- où Uni-directionnel 2? 

65 ROR TEIP sréintégré qu'une fois dans TEMP 143 BPL BIDIR :BI 

70 LDY NL 144 JSR REÏOUR UNI => revient en début de ligne 
71 LDA TEM iL'octet résultant est chergé 145 DEC TEMOIN set effectue la 2éme passe 

72 LSR AÀ :80n bit de poids fort mis à zéro 146 BNE LINDIR2 

73 EOR INVERSE s‘Eventuellement il est inversé 147 * 

74 BEQ MCL1 ‘Un octet nul ne modifie pas TEMOIN 148 ÉRLRSINRRRSR RÉ RSR RÉ RSR RSR RSR RÉ RL ÈS ANR RARE ARRARRARRRANANANNNR 
T5 IDX #$SFP standis qu'un octet non nul le mettra 149 * 

76 STX TEMOIN ; irrémédiablement À SPF 150 CLAVIER EDA KRD ‘Test du clavier. 

77 NULI STA (IMAGL),Y Résultat rangé à partir de $1£00 151 BPL SUITE2 :Pas de touche enfoncée. 

73 LDA #0 ‘La mémoire de travail TEMP est 152 CMP +59R :ESCAPE ? 

79 STA TEM ‘Remise à zéro 153 BEQ ARRET #QOui => Arret impression. 

80 LDA #+$51F :La prochaine série sera rangée 154 CMP +#'U"' AU: 2 

8) STA IMAGH ten $1F00 au lieu de $1E00 255 BNE CLAVI 

82 PLP :On récupère le bit qui avait été 156 LDA #SPF :°> Mode Uni-directionnel. 

83 ROR TEMP saauvegardé et on le réintègre 157 STA DIR 

84 LDX #2 dans TEMP. Les trois bits restants 156 BNE SUITE 

85 PLA ssont dédoublés de la meme facon 159 CLAvl CMP +‘*5! 5B ? 

86 DECAL2 LSR A Ge précédemment 160 BNE SUITE 

87 PHP set formeront un nouvel ectet TEMP 181 LDA +0 :=> Mode Bi-directionnel 

88 ROR TEMP :qui sera traité comme le premier 162 STA DIR 

89 PLP 163 SUITE BIT RKBDSTR ‘Efface le clavier 

99 ROR TEMP 164 SUITE2 IDA NC ‘Passe à la colonne précédente 

51 DEX 165 SEC :en reculsnt de 7 points 

92 BPL DECAL2 166 SBC #7 

93 LDA TEP #puis rangé à partir de $1F00 167 STA NC 

94 LSR A 5bit 7 à zéro 168 BCS SAUT2 

95 EOR INVERSE t‘Eventuellement inversé 163 DEC NC+] 

96 BEQ NUL2 170 BPL SAUT? :Et remonte jusqu'en DOUBLE 

97 LDX €6$FP :TEMOIN mis à $FF car 171 BMI FIN :Terminé ! 

38 STX TEMOIN ;l'octet en questicn n'est pss nul. 172 * 

$9 NUL2 STA (IMMGL},Y :Rangement du résultat 173 ÉASAERRRÉRÉRARÉRRR RE RE AN AAA JAN D D D A de ee de de A 
100 LDA #0 174 * 

101 STA TEMP +Remise à 0 de la mémoire de travail 175 BIDIR  LDY #$FF ;Change le sens d'impression 

102 INC NL :Contptage des octets de la colonne. 176 STY SENS ; (de droite à gauche) 

103 LDA NE ‘Les 192 octets de la colenne 177 LDA +0 

104 CMP +192 sont-ils été tous traités ? 178 STA BARRE sRatrappe un décalage de 3 barres 
195 BCC SUIVANT ;NON => Octet suivant 179 JSR IMPRIME 

106 * 180 JSR TEMPO 

107 MR RRRRRRNNNNN RSR SR RÉ ARNO ÉNRSRRRRRRRRHR NN RNA Abbé 161 JSR IMPRIME 
108 * Impression des deux séries de 192 octets 182 JSR TEMPO 
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134 LOY #192 slmprime la ligne à l'envers 

185 LININV DEY zen commencant per le dernier octet 
186 PHP 

187 LDA (IMAGL),Y 

166 STA BARRE 

169 JSR IMPRIME :Imprine une barre verricale 

190 JSR TEMPO + Temporisation 

191 JSR IMPRIME :Doubla ls barre imprimée. 

192 JSR Taw#æO 

193 PLP : Terminé ? {Y = 07) 

194 BNZ LININV :KOR => Octet précédert 

195 LDA #4 OUI => Line reed 

196 JSR DEROÛLE : (Descend d'‘ur cran) 

19? JSR R&TOUR Et se reposltionre en début de ligre 
198 CLC 

Programme RECOPECRAN 


NB: A la suite de ce programme est "cCachée"une moutne en 
langage machine. Voir texte. 


10 TEXT : HOME 
20 PRINT “RECOPIE D'ECRAN GRAPHIQUE SUR SILENTYPE" 
DOAPRINIT ee neue me " 


40 LOMEM: 24578 

50 POKE 34,2: POKE 33,33: POKE 32,7 

60 OF= O'A$ = "AD = VAL(AS$) + PEEK (131) + 256° PEEK 
(32)1 = 0 

70 MG = 10:IN =7:PG=1 

80 DIMF$(105) 

90 REM Impression des valeurs par defaut 

100 HOME: NORMAL 

#10 VTAB 6: PRINT “CHARGEMENTIMAGE :": GOSUB 1100 

120 VTAB8: PRINT"MARGE GAUCHE :": GOSUB 1200 

130 VTAB 10: PRINT*INTENSITE :*: GOSUB1300 

140 VTAB 12: PRINT“PAGE :“:GOSUB 1400 

150 GOSUB 1500: GOSUB1600 

160 VTAB 21: HTAB 1: CALL - 958: PRINT * <ESPACE> POUR 
MODIFIER“: PRINT *<RETURN& POUR POURSUIVRE": 
PRINT® <B6C> POUR QUITTER": PRINT® <1> OÙ <2> 
POUR HGR; 

170 GOSUB 1000: IF À = 141 THEN600 

180 IF A = 155THEN TEXT : HOME : END 

185 GOSUB 3000 

180 IF À < > 160 THEN 170 

200 REM Modification des paramètres 

210 VTAB 21: HTAB 1: CALL - 958: PRINT "<ESPACE> POUR 
CHOISIR": PRINT *-> OÙ <- POUR MODIFIER": PRINT 
“<RETURN> POUR CONCLURE": PRINT" <1> OU <2> POUR 
HGR": 

220 IT=0 

230 ONIT GOTO 300,350,400,450,500 

250 INVERSE : GOSUB 1110: GOSUB 1000: IF À = I60THENIT 
= 1: GOSUB 1100: GOTO 230 

260 IF À + 149 THEN I1M= {IM + 1) * (IM <2): GOTO 250 

270 IF A=136 THENIM = (IM-1)"(IM>0) +2 * NOTIM: GOTO 
250 

280 IF À = 141 OR A = 155 THEN 100 

290 GOSUB 3000: GOTO 250 

300 INVERSE :GOSUB 1210: GOSUB 1 000: IF À = 160 THENIT 
æ= 2: GOSUB 1200: GOTO 230 

310 IF À x 149 THEN MG = (MG + 1) * (MG < 20): GOTO 300 

320 1F À = 135 THEN MG = (MG-1)“(MG >0)+21° NOT MG: 
GOTO 300 

330 IF À = 141 OR A = 155 THEN 100 

340 GOSUB 3000: GOTO 300 

350 INVERSE : GOSUB 1310: GOSUB 1000: IF À = 160 THEN IT 
#3: GOSUB 1300: GOTO 230 

360 IF À = 149 THEN IN = (IN + 1)° (IN < 7}: GOTO350 

370 IFA= 136 THENIN=(IN -1)°(IN >0)+7° NOT IN: GOTO 
350 

380 IF À = 141 OR A = 155 THEN 100 

390 GOSUB 3000: GOTO 350 

400 INVERSE : GOSUB 1410: GOSUB 1000: IF À = 160 THEN IT 
= 4: GOSUB 1400: GOTO 230 


199 BCC CLAVIER 

200 * 

201 Rétannnnnnènitistétannnnnènnètétériiéèééeninnnnnètètèèniitètst 
202%" 

203 ARRET BIT KBDSTR 

204 FIN LDA +30 

205 JSR DEROULE ;Déroule le papier. 

206 JMP SETVID :PR#O 

207% 

206 tesssnenesenanannasesaamamnemnanésééééémammminenenrateeeis 
209 * 

210 JSR 53E3 Appel de RNTS 

2il JE 5309 

212 8RK 

213 8RK 

214 8RK 


410 IFA = 149OR A = 136 THEN PG = NOT(PG- 1)+ 1: GOTO 
400 

420 IF A = 141 OR A = 155 THEN 100 

430 GOSUB 3000: GOTO 400 

450 INVERSE : GOSUB 1510: GOSUB 1000: F A - 160 THEN IT 
= 5: GOSUB 1500: GOTO 230 

480 IFA= 149ORA = 136 THEN MOD = MOT MOD:GOTO450 

470 IFA = 4 OR A =155 THEN 100 

480 GOSUB 3000: GOTO 450 

500 INVERSE : GOSUB 1610: GOSUB 1000: IF À = 160 THEN IT 
= 0: GOSUB 1600: GOTO 230 

510 IFA = 149ORA = 136 THEN DIR = NOT DIR: GOTO 500 

520 IF A = 141 ORA = 155 THEN 100 

530 GOSUB 3000: GOTO 500 

600 IF NOT M THEN 700: REM Pas dimage à charger 

610 GOSUB 2000: REM Lecturecamogue 

620 IF NOTI THEN 100: REM Pas d'image sur ce disque. 

630 VTAB 22: HTAB 1: PRINT*NOM DE FICHIER, NUMERO,OÙ 
<RETURN>"; 

640 INPUT "==>"; A$:I1F LEN(AS) = 0 THEN 100 

650 |F VAL {A$) >0 AND VAL (AS) < = | THEN A$ = F${ VAL (AS) 
-1) 

660 PRINT CHRS (4)"BLOAD";A$;",A":819 2° PG:”,D";IM 

670 M = 0: GOTO 100 

700 REM Oninitialise l'imprimante 

710 REM Etonfixe les paramètres 

720 PRINT : PRINT CHRS (4);"PR#1°: PRINT 

730 PRINT CHR (4);"PR#0" 

740 POKE - 12527,MG: POKE - 12528.IN: POKE - 12529,255 * 
DIR: POKE - 12524,255 * MOD: POKE - 12538,32° PG 

745 POKE 49239,0: POKE 49234,0: POKE 49235 + PG,0: POKE 
49232,0 

750 CALL PEEK (175) +256” PEEK (176) - 329: GOSUB 3090: 
GOTO 100 

1000 !F PEEK (49152) < 128 THEN 1000 

1010 A « PEEK (49152): POKE 49168,0: RETURN 

1100 NORMAL 

1110 VTAB 6:HTAB 20: CALL - 868: ON 1M GOTO 1130,1140 

1120 PRINT "NON": RETURN 

1130 PRINT'DRIVE 1°: RETURN 

1140 PRINT"ORIVE2"*: RETIJAN 

1200 NORMAL 

1210 VTAB 8: HTAB 16: CALL - 868: PRINT MG: REFUAN 

1300 NORMAL 

1310 VTAB 10: HT AB 16: CALL - 868: PRINT IN: RETURN 

1400 NORMAL 

1410 VTAB 12: HTAB 16: CALL - 868: PRINT PG: RETURN 

1500 NORMAL 

1510 VTAB 14: CALL -868 : PRINT"MODE":: IF MOD THEN 

PRINT'INVERSE"*: RETURN 

1520 PRINT "NORMAL": RETURN 

1600 NORMAL 

1610 VTAB 16: CALL - 868: IF DIR THEN PRINT “UNI";: GOTO 

1630 
1620 PRINT ‘B{"; 


Suite de Recopecran page suivante —= 
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Manipulation de 
catalogue 


Jean-Luc Arnaud 


e programme, écrit 

avec l'assembleur Lisa 

1.5, vous permet de 

modifier le catalogue 
de votre disquette de façon simple 
et efficace. Ainsi, vous pouvez 
renommer un fichier, déplacer 
une zone de fichiers, échanger la 
place de deux fichiers, 


Mode d'emploi 


Lors du chargement du program- 
me, l'écran se divise en deux 
fenêtres : 


. une fenêtre menusurle bas de 
l'écran, sur laquelle saffiche- 
ront les différentes fonctions 
auxquelles vous aurez accès ; 

. une fenêtre de travail sur le 
reste de l'écran. 


En premier lieu, vous devez 

demander le chargement d'un 

catalogue. La première option à 

choisir est donc "C". Le 

programme vous demande alors 

la confinnation de votre choix ; 

quatre réponses sont autorisées : 

+ _O pour Oui; 

° Npour Non; 

+ 1 ou 2 correspond au numéro 
du lecteur où se trouve la 
disquette dont le catalogue doit 





Suite de RECOPECRAN 
1630 PRINT"DIRECTIONNEL*. RETURN 


2000 REM Sous progr. de lecture du catalogue 


2010 HOME 

2020 POKE 47082,IM: REM Drive 
2080 POKE 47083,0: REM Volume 
2040 POKE 47084,17: REM Pist 


2050 POKE 47088,187: POKE 47089,180:REM Buffer en $B4BB 


2060 POKE 47092,1: REM Read 
2070 1=0:S-0:P=0 
2080 POKE 47085,15-S:REM Secteur 


2090 CALL PEEK(175) +256° PEEK (176) -9 
2100 iF PEEK (47093) THEN PRINT: PRINT CHRS (7):7O 


ERROR", POP: TEXT : END 
2110 OF = 11: POKE AD,30 
2120 IF PEEK (46267 + OF) = 255 THEN 2180 
2130 IF PEEK(46267 + OF) n 0 THEN 

2210 : REM Fin du catalogue 
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être manipulé. 


Le catalogue de votre disquette 
étant chargé, le programme vous 
propose : 


* la lecture 

* l'édition 

* la modification 

+ le réenregistrement 

la sortie du programme. 


Lecture 


Ce choix est l'équivalent d'un 
CATALOG, il vous permet donc 
de visualiser les noms de fichiers 
de votre catalogue. En 
LECTURE le programme vous 
demande le numéro du premier 
secteur et le nombre de secteurs à 
lire (il vérifie les dépassements). 
Les titres s'affichent alors et sont 
précédés d'un numéro (1 à 255, 
voir explications techniques) et 
du signe +, - ou &, suivant qu'il 
s'agit d'un fichier existant (+), 
d'un fichier effacé (-) ou d'un 
commentaire (&). 


Signalons à ce propos que lors 
d'un DELETE, le fichier n'est 
pas effacé de la disquette. Le 
DOS se contente de remplacer le 
numéro de piste de la liste 
pistes/secteurs du fichier concer- 


2180 


2150 POKE AD +2, INT ((46270 + OF)/256): POKE AD+ 1,46270 
+OF-256* PEEK (AD + 2}F${I) = AS 

2160 IFIAND 1= 18° INT(I/ 18) THEN VTAB 23: PRINT 
*APPUYEZ SUR UNE TOUCHE": PRINT “POUR 
CONTINUER"; GOSUB 1000: HOME 

2170 VTAB 4 +1-18* INT(1/ 18}:1 = F + 1: PRINTH: HTAB 4: 


PRINT A$ 
2180 OF-OF+35 


2190 IF OF <255 THEN 2120 
2200 S =S + 1: GOTO 2080 


2210 RETURN 


2140 A= PEEK (46269 +OF):IF NOT(A = 4 OR A = 132)THEN 


3000 REM VOIR UNE PAGE HGR 

3005 IF NOT (A=177/0RA =178)THEN RETURN 

30+0 POKE 492390: POKE 49234,0: POKE 49236 + (A = 178),0: 
POKE 49232,0 

3020 FOR i = OTO 1000: NEXT 

3030 POKE 49236,0: POKE 49233,0: RETURN 


né par $FF : on peut donc 
toujours retrouver dans le 
catalogue un nom de fichier 
effacé auparavant. 


Lors de l'affichage du catalogue, 
si le nombre de fichiers est 
supérieur au nombre de lignes 
disponibles dans la fenêtre, la 
touche ESPACE vous permettra 
de continuer et de visualiser tous 
les noms des différents fichiers 
composant le catalogue. Dans ce 
cas, comme à lentrée des 
informations, le nombre de 
secteurs occupés est inscrit. Cette 
opération effectuée, le program- 
me vous renvoie au SOus-menu 
LECTURE. 


Edition 

Le choix EDITION conduit à un 
sous-menu qui propose l'échange 
entre deux titres ou le déplace- 
ment d'une zone. j 
L'ECHANGE ne nécessite pas 
d'explications particulières. Il 
suffit de donner les numéros des 
deux titres à échanger ; ainsi, 
l'ordre des noms de fichiers est 
modifié. Le programme renvoie 
ensuite à l'écran les titres du 
secteur - catalogue déterminé par 
le 2ème numéro. 
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Exemple : 


A partir du menu général, tapez E 
(Edition) puis E (Echange) et 
enfin 3,40. Ainsi, les titres n°3 et 
40 sont échangés et le secteur 6 
est affiché (titres 36 à 42). De la 
même manière, On aurait pu 
entrer 40,3 ; dans ce cas, c'est le 
secteur 1 (titres 1 à 7) qui 
s'affiche. 


Le DEPLACEMENT permet 
d'insérer des titres ou des 
commentaires rapidement. Il 
suffit d'entrer les limites 
supérieure et inférieure de la zone 
à traiter et le numéro du titre à 
partir duquel la zone sera 
implantée. 11 est évident qu'il 
s'agit, en fait, d'un échange entre 
la zone à déplacer et la zone de 
des#ination. Le programme vérifie 
que le transfert ne se fait pas 
au-delà des limites du catalogue. 


Exemple : 


A partir du menu général, tapez E 
(Edition) puis D (Déplacement) et 
entrez les valeurs 1,10,40, La 
zone 1 à 10 est déplacée en 40 à 
49 tandis que la zone 40-49 passe 
en 1-10. 


Si les valeurs entrées sont 
1,10,2 : la zone 1-10 passe en 
2-11, 11 passe en 1 : il y a 
insertion d'une ligne. 


On peut aussi faire “remonter” 
une ZOne : 


Exemple : 


Supposons que les valeurs saisies 
sont 90,100,30 : la zone 90-100 


Récaprtulation 
LECTCAT 


0801- A9 4C 8D F5 03 A9 10 

0808- 8D F6 03 A9 08 8D F7 03 
0810- A2 00 86 00 B5 00 9D 00 
0818- 78 CA DO F8 A9 FO 85 36 
0820- A9 FD 85 37 A9 1B 85 38 
0828- A9 FD 85 39 20 58 FC A9 
0830- 12 85 25 4C AS 08 42 08 
0838- FE 09 52 0B 07 OD 87 OE 
0840- 13 09 20 5B 10 20 C6 10 
0848- 20 62 FC A9 00 85 00 85 
0850- 18 A9 11 8D B5 10 A9 OF 
0858- 8D B6 10 A9 20 8D BA 10 
0860- A9 01 8D BD 10 A9 O1 85 
0868- CE A9 1F 85 CF 20 A9 10 


passe en 30-40 et vice-versa. 
Ainsi, les entrées 90,100,30 et 
100,90,30 sont équivalentes. 


Modification 


Choisissons maintenant la 
MODIFICATION d'un titre. 
Cette partie du programme offre 
les possibilités suivantes : 


*. modification du titre d'un 
fichier ; 

* miseen place de commentaires 
(texte et symboles divers) ; 

* effacement du titre d'un fichier 
précédemment DELETé ou 
d'un commentaire. Par précau- 
tion, il est impossible d'effacer 
le titre d'un fichier présent. 


Afin de modifier le nom d'un 
fichier, il faut entrer le numéro du 
titre à traiter. Celui-ci s'affiche 
précédé de son numéro, et 
surmonté d'une échelle, de 30 
caractères, graduée de 1 en I, 
repérée de S en S. Le curseur est 
positionné sur le premier carac- 
tère du titre. 

Les facilités de l'éditeur (touches 
de déplacement du curseur et 
fonction ESCape) sont naturelle- 
ment accessibles pour cette 
modification. 


Le programme détermine 
lui-même sivous manipulez un 
commentaire, un nom de fichier 
présent ou un titre de fichier déjà 
effacé. La seule précaution à 
prendre est de ne pas remplacer 
un titre de programme par une 
suite de symboles non acceptée 
par le DOS, celui-ci ne le 


0870- E6 CF A9 00 A8 Di CE DO 
0878- 17 C8 Di CE DO 12 AS 18 
0880- 18 69 O1 OA OA OA 38 E5 
0888- 18 85 06 C6 06 4C A5 08 
0890- AO 00 B1 CE 8D B5 10 C8 
0898- B1 CE 8D B6 10 EE BA 10 
08A0- E6 18 4C 6D 08 A5 25 85 
08A8- 08 A9 00 85 24 A9 14 85 
08B0- 25 85 22 A9 18 85 23 20 
08B8- 58 FC A9 9E AO 09 20 26 
08C0- OF A9 AO 20 1B FD C9 C3 
08C8- DO 05 A2 00 4C FD 08 C9 
08D0- CC DO 05 A2 02 4C FD 08 
08D8- C9 C5 DO 05 A2 04 4C FD 
08E0- 08 C9 CD DO 05 A2 06 4C 
08E8- FD 08 C9 D2 DO 05 A2 08 
08F0- 4C FD 08 C9 D4 FO 1C 20 
08rF8- DF 10 4C C1 08 20 FD FB 


retrouverait plus. Il est donc 
indispensable de redonner un 
nom reconnaissable par le DOS. 


L'effacement automatique s'ob- 
tient en tapant un RETURN à 
vide lors de l'entrée du texte. 
Après confirmation et contrôle, le 
texte est effacé. Il est également 
possible de taper ESPACE et 
RETURN ; dans ce cas le texte 
est effacé et remplacé par un 
‘blanc’ qui apparaît lors du 
catalogue, sous forme d'une ligne 
vide (pour aérer...). Une tentative 
d'effacement du titre d'un fichier 
présent conduit à l'affichage d'un 
message d'erreur, avec retour au 
menu général. 


Réenregistrement 


Votre œuvre mise au point, il 
s'agit de la sauvegarder en la 
réenregistrant sur là MEME 
disquette. Choisissez simplement 
l'option R (Réenregistrement) qui 
transfère le contenu de la 
mémoire vers la disquette. Cette 
option est éminemment dangeteu- 
se puisqu'elle détruit le catalogue 
original et le remplace par celui 
que vous avez préparé (croyez-en 
mes malheureuses expé- 
riences..….). Il est donc nécessaire 
de confirmer le choix par 1/2/0O/N 
: lecteur 1 ou 2, Oui, Non. 


Attention : il est indispensable 
d'enregistrer le catalogue sur la 
MEME disquette. Sinon adieu 
vos beaux fichiers ! 


Terminer 
Vous pouvez recommencer une 





0900- 20 62 FC 20 62 FC BD 36 
0908- 08 85 EB BD 37 08 85 EC 
0910- 6C EB 00 AS 00 C9 FF FO 
0918- 42 20 C6 10 20 58 FC 20 
0920- D3 10 20 62 FC 20 62 FC 
0928- A9 34 AO 09 20 26 OF C6 
0930- 00 4C AS 08 26 45 52 54 
0938 53 49 47 45 52 4E 45 60 
0940- 53 41 50 60 SA 45 56 41 
0948- 67 4E 60 53 55 4F 56 60 
0950- 7A 60 4E 4F 49 54 4E 45 
0958- 54 54 41 A2 00 BD 00 78 
0960- 95 00 CA DO F8 20 58 FC 
0968- A9 8D AO 09 20 26 OF 20 
0970- D3 10 20 62 FC 4C DO 03 
0978- 14 AO BA AO D2 D5 C5 D4 
0980- ©c3 C5 CC A0 C5 C4 A0 CF 
0988- D2 C5 CD D5 CE 10 D2 C5 





Pom's n° 20 








séance de travail, éventuellement 
en changeant de lecteur, sinon 
tapez T pour Terminer. 


Il existe un contrôle, lors de la 
demande de sortie du program- 
me, afin de ne pas oublier 
d'enregistrer la séance de travail. 
Une seconde sortie, immédiate- 
ment après la première, vous 
permet de quitter le programme 
sans enregistrement. 


Contrôles effectués 
par le programme 


+ Tout RETURN à vide renvoie 
au menu principal. 

° Les numéros des titres ne 
peuvent être nuls ou supérieurs 
au maximum autorisé par le 
catalogue (en tout état de cause 
<= 255). 

+ _ Par conséquent, il est impossi- 
ble de demander le transfeit 
d'une zone vers une autre 
franchissant la limite du 
catalogue, par exemple 1,50, 
80 (pour un catalogue normal 
contenant au plus 105 titres), 
qui déplace les titres 1 à 50 
vers 80 à 129. 

+ Le nombre de réponses doit 
correspondre à ce qui est 
attendu. 

+ En cas de non respect des 
règles ci-dessus, le programme 
vous repose la question. 

+ On ne peut pas effacer le titre 
d'un fichier présent. 

«+ Rappel à l'ordre en cas de 
sortie du programme sans 





0990- C3 CE C1 CC C5 D2 A0 D2 
0998- D5 CF DO A0 A6 CO 5F A0 
09A0- BA AO D8 C9 CF C8 C3 AO 
09A8- C5 D2 D4 CF D6 CO A0 C5 
09B0- CE C9 CD D2 C5 DD D4 DB 
09B8- AO AO AO C5 D2 D5 D4 C9 
09C0- D2 C3 C5 C5 DD D2 DB AO 
09C8- AO AO AO AO D2 CS C9 C6 
09D0- C9 C4 CF DD CD DB AO CE 
09D8- CF C9 D4 C9 C4 DD CS DB 
09E0- AO AO AO AO AO AO CS D2 
09E8- D5 D4 C3 C5 DD CC DB AO 
09F0- AO AO D4 CE C5 CD C5 C7 
09F8- D2 C1 C8 DD C3 DB A9 0C 
0A00- AO O0B 20 26 OF A2 03 A9 
0A08- FD AO 09 20 43 OF A9 00 
OA10- 85 01 A5 19 18 65 1A 38 
OA18- E9 02 85 1B A5 18 C5 1B 
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enregistiement. 


Une disquette dont le catalogue 
est modifié par cet utilitaire ne 
peut plus être copiée entièrement 
par le programme FID, les 
commentaires provoquant une 1/0 
ERROR. Il faut donc copier les 
fichiers en sautant les commen- 
taires. Le programme COPYA 
fonctionne parfaitement. 


Technique 


L'utilitaire est entièrement écrit en 
assembleur (Lisa 1.5), d'une part 
nécessaire pour la rapidité 
d'exécution, d'autre part pour le 
plaisir... 

Globalement, le catalogue est 
chargé en MEV, manipulé et 
enfin réécrit sur la disquette. Le 
programme ne touche pas à la 
VTOC (piste $11, secteur O). 


+ Possibilité de lire n'importe 
quel catalogue commençant en 
piste $11, secteur $F, en 
utilisant les pointeurs de 
chaînage d'un secteur avec le 
suivant, autorisant un 
maximum de 255 titres. En 
récupérant les pistes O à 2, il 
est possible de stocker environ 
260 fichiers de 2 secteurs 
chacun, un secteur liste 
piste/secteur et un secteur 
données, sur une seule 
disquette. 

+ Assemblage en $801 pour 
éliminer le SYNTAX ERROR 
provoqué par NEW, LIST ou 
RUN après retour au Basic 





OA20- BO 3D A5 25 C9 14 BO 15 
0A28- AS 25 85 08 A9 00 85 24 
0A30- A9 14 85 25 85 22 A9 18 
0A38- 85 23 20 58 FC 20 D3 10 
0A40- A9 3D A0 0B 20 26 OF A9 
0A48- 00 A6 18 E8 20 24 ED A9 
0A50- 48 AO 0B 20 26 OF 20 62 
0A58- FC 20 62 FC 4C FE 09 AS 
OA60- 01 DO 05 20 C6 10 C6 O1 
0A68- 20 62 FC C6 19 A9 00 85 
OA70- 1C 85 75 AS 19 OA OA OA 
0A78- 38 E5 19 18 69 O1 18 65 
0A80- 1C 85 1D AA A9 00 20 24 
OA88- ED A2 02 20 4A F9 A9 O4 
0A90- 85 24 A9 20 18 65 19 85 
0A98- CF A5 1C OA OA OA OA OA 
OAA0- 18 65 1C 65 1C 65 1C 69 
OAA8- 0OB 85 CE A2 00 Al CE FO 


($800 doit contenir O). 

* Sauvegarde de la page zéro en 
$7800 et débranchement du 
DOS à l'initialisation de la 
routine. La mise hors service 
du DOS s'explique par la 
nécessité de pouvoir manipuler 
des mots réservés du DOS, 
sans obtenir le fatal NOT 
DIRECT COMMAND. 

+ En MEV, le catalogue est 
stocké à partir de l'adresse 
$2000. Une zone de transition 
pour les déplacements com- 
mence en $4600. 

+ L'entrée des commentaires 
entraîne la mise du numéro de 
piste de la liste piste/secteur à 
une valeur supérieure à $22 et 
inférieure à $FF ($30) ; en 
d'autres terines, le commen- 
taire apparaît pour le DOS ni 
comme un fichier effacé (il ne 
s'afficherait pas lors d'un 
CATALOG), ni comme un 
fichier présent (une tentative 
de chargement entraînerait une 
[/0 ERROR). C'est ce numéro 
insolite que FID ne digère pas. 

+ La routine d'écriture sur 
disquette est modifiée de façon 
à pouvoir enregistrer un 
catalogue plus long que la 
normale. Elle commence par le 
secteur $F, piste $11 puis 
utilise les octets de chaînage 
pour les secteurs suivants. 

* Retour au Basic en rebranchant 
le DOS, et en restituant la page 
ZÉTO. 


OABO- 10 C9 FF FO OC C9 30 DO 
0AB8- 04 A9 A6 DO 06 A9 AB DO 
OACO- 02 A9 AD 20 FD FB E6 24 
OAC8- A2 1E AO 03 B1l CE 20 FD 
OADO- FB E6 CE CA 8A DO F3 A5 
OAD8- 75 FO 01 60 A9 8D 20 7C 
OAEO- FB E6 1C A5 1C C9 07 DO 
OAE8- 8A E6 19 A5 1B C5 19 90 
OAFO- 03 4C 6D OA 20 62 FC A9 
OAF8- AO 20 1B FD C9 AO DO 09 
0B00- E6 19 A9 01 85 1A 4C 12 
0B08- OA 4C A5 08 30 BA AO C5 
0B10- D2 C9 CC AO C1 AO D3 D2 
0B18- D5 C5 D4 C3 C5 D3 AO C5 
0B20- C4 AO C5 D2 C2 CD CF CE 
0B28- AO D4 C5 AO D2 D5 C5 D4 
0B30- C3 CS D3 AO F2 E5 B1l AO 
0B38- D5 C4 A0 EF CE OA AO D4 
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Programme 
LECTCAT.SOURCE 

(Assembleur LISA 1.5) 
1 NLS 

2 === = === = 
3 ;= = 
4 ;= EDITEUR DE CATALOGUE DOS 3.3 = 
5 ;= = 
6 ;= ( CATALOGUE COMMENCANT EN = 
7 ;= PISTE $11l, SECTEUR $OF ) = 
8 ;= - 
g FREE =====ESESSE================= 
10 ; 


11 FINFLG EPZ $0 
12 LECFLG EPZ $1 


13 ADR EPZ $EB ; JMP (ADR) 
14 FLAG EPZ $CE 

15 CH EPZ $24 

16 CV EPZ $25 

17 SECT EPZ $18 ;: NBRE SECT 
18: «C1 EPZ $19 ; STOCKE 

19 C2 EPZ $1lA. : LES 

20 NBSECT EPZ $1B ;: DONNEES 
21F EPZ $1C 


22 NUMFIC EPZ $1D 
23 NUMMAX EPZ 506 
24 CVANT EPZ 508 
25 AlL EPZ $3C 
26 AlH EPZ $3D 
27 A2L EPZ $3E 
28 A2H EPZ $3F 
29 A4L EPZ $42 
30 A4H EPZ $43 
31 FLAG2 EPZ $175 
32 DESTL EPZ $F9 
33 DESTH EPZ $FA 


34 C EPZ $FB 
35 BOUCLE EPZ $FC 
36 IN EQU $200 


37 RWTIS EQU $3D9 
38 AMPERV EQU $3F5 
39 SGNFLT EQU $E301 
40 LINPTR EQU $ED24 
. 41 ORIG EQU $2002 
42 PRBL2 EQU $F94A 
43 CTRL.S EQU $FB7C 
44 BELL2 EQU $FBE6 
45 STORAV EQU $FBFO 
46 VIDOUT EQU S$FBFD 
47 KEYIN EQU $FDI1B 
48 CR EQU $FC62 
49 CLREOL EQU $FC9C 
50 GETLIN EQU $FD6C 
51 MOVE EQU $FE2C 


5253 

53 ORG $801 

54 ; 

DITES = = 
56 ; INITIALISATION & 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
1UT 
112 
113 
114 
115 
116 
117 


BEGIN LDA #$4C ; 94C = JUMP 
STA AMPERV 
LDA #DEBPGM 
STA AMPERV+1 
LDA /DEBPGM 
STA AMPERV+2 


DEBPGM LDX #$00 ;: 256 BOUCLES 
STX FINFLG ; DRAPEAU ZERO 
PGO LDA $00,X 
STA $7800,X 
DEX 
BNE PGO 


: DEBRANCHE LE D.0.S. 


LDA #$Fr0 
STA $36 
LDA #$FD 
STA 537 
LDA #51B 
STA $38 
LDA #$FD 
STA $39 


JSR $FCS8 
LDA #18 


TABLE ADR INIT 
ADR LECTUR 
ADR EDIT 
ADR MODIF 
ADR ECRIT 
ADR FIN 


INIT JSR OK? 
JSR WINDOW 
JSR CR 


LDA #$00 
STA FINFLG 
STA SECT 
LDA #5$11 
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118 STA IBTRK 178 STA $23 


119 LDA #S0F 179 JSR $FC58 

120 STA IBSECT 180 M1 LDA #MESS1 

121 LDA #$20 181 LDY /MESS1 

122 STA IBBUFP+1 182 JSR AFFICH 

123 LDA #S1 ; LECTURE 183 ; 

124 STA. IBCMD 184 ÿ-=—— 2" 
125 LDA #ORIG-1 185 ; SAISIE DE LA REPONSE 

126 STA $CE VOG, == este eee ee ses 
127 LDA /ORIG-S$100 187 ; 

128 STA $CF 188 REP1  LDA #S$SAO0 

129 ÿ 189 JSR KEYIN 

130 ; 190 CMP #"c" ;: CHARGEMENT ? 
131 ; DEBUT DE LECTURE 191 BNE L? 
a 192 LDX #0 

133 $ 193 JMP SAUT 

134 DEBUT JSR DOS 194 L? CMP #"L" LECTURE ? 
1.35 INC $CF 195 BNE E? 

136 LDA #50 196 LDX #2 

137 TAY 197 JMP SAUT 

138 CMP ($CE},Y ;: No PISTE-0 ? 198 E? CMP #"E" :EDITON ? 
139 BNE SUITE 199 BNE M? 

140 INY 200 LDX #4 

141 CMP ($CE},Y : No SECT=0? 201 JMP SAUT 

142 BNE SUITE 202 M? CMP #°M" :MODIF ? 
143 LDA SECT ; CALCUL 203 BNE R? 

144 CLC 204 LDX #6 

145 ADC #1 205 UMP SAUT 

146 ASL : NUMMAX 206 R? CMP 4"R° :ENREGIST? 
147 ASL :=(SECT+1) *7 207 BNE T? 

143 ASL ; (SECT+1) *8 208 LDX #8 

149 SEC 209 JMP SAUT 

150 SBC SECT 210 T? CMP #"T" ; TERMINER ? 
151 STA NUMMAX 211 BEQ FIN 

152 DEC NUMMAX :NUMMAX = 212 JSR BELL 

{SECT+1}*8-SECT-1 213 JMP REP1 

153 JMP MENU 214 SAUT JSR VIDOUT 

154 SUITE LDY #S0 215 JSR CR 

155 LDA ($CE),Y ; No PISTE 216 JSR CR 

156 STA IBTRK 217 $ 

157 INY 218 LDA TABLE,X 

158 LDA ($CE),Y ;: No SECTEUR 219 STA ADR 

159 STA IBSECT 220 LDA TABLE+1,X 

160 INC IBBUFP+1 221 STA ADR+1 

161 INC SECT 222 JMP {ADR} 

162 JMP DEBUT 223 ; 

163 : 224 ;----—2 
164 sam 225 ; RETROUVE PAGEO INITIALE 

165 ;= _ 226 = 
166 ;= MENU GENERAL = 221 $ 

167 ;= = 228 FIN LDA FINFLG 

168 ;=mmmmm=22---—--mmmmmmmmmmmzs 229 CMP #SFF 

169 ; 230 BEQ OKFIN 

170 MENU LDA CV 231 JSR WINDOW 

171 STA CVANT 232 JSR SFC58 

172 LDA #40 233 JSR CLOCHE 

173 STA CH 234 JSR CR 

174 LDA #20 235 JSR CR 

175 STA CV 236 LDA #RECMSS 

176 STA S22 237 LDY /RECMSS 

147 LDA #24 238 JSR AFFICH 
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239 DEC FINFLG 

240 JMP MENU 

241 ;ÿ 

242 RECMSS HEX 26 

243 BLK "ERTSIGERNE SAP ZEVA'N SUOV : 
NOITNETTA" 

244 ; 

245 OKFIN LDX #$00 ; 256 BOUCLES 
246 PAGO LDA $7800,x 

247 STA $00,X 

248 DEX 

249 BNE PAGO 

250 ; 

251 JSR $FC58 

252 LDA #MESSAG 

253 LDY /MESSAG 

254 JSR AFFICH 

255 JSR CLOCHE 

256 JSR CR 

251 + 

258 JMP $3D0 : RETOUR BASIC 
259 MESSO STR * : RUETCEL ED OREMUN" 
260 ; 

261 MESSAG STR "RECNALER RUOP &@" 

262 ,; 

263 MESS1 STR “ : XIOHC ERTOK@ ENIMRE]TI! 
ERUTIRCEE)JRI REIFIDO]M{ NOITID]JE([ 
ERUTCE]L{ TNEMEGRAH]C[" 

264 ; 

265 ;=====-==22=2222z--22=-22===------ 
266 ;= = 
267 ;= LECTURE DU BUFFER = 
268 ;= = 
269 ;:==sssmms-= == 
270 ; 

271 LECTUR LDA #MESS2 

272 LDY /MESS2 

243 JSR AFFICH 

274 REP2 LDX #$03 

275 LDA #LECTUR-1 

276 LDY /LECTUR 

211 JSR SAISIE 

2183 

279 5-2 

280 ; 

281 LDA #0 

282 STA LECFLG 

283 TEST LDA C1 

284 CLC 

285 ADC C2 

286 SEC 

287 SBC #$02 

288 STA NBSECT ; C1+C2-2 -> 
NOMBRE DE SECTEURS A LIRE 

289 LDA SECT 

290 CMP NBSECT 

291 BCS ONLIT FOOT < Cl+C2-2 
LODITEE ES SREREEE e 
293 ; DEPASSEMENT DU NOMBRE DE SECTEURS 
294 ;---——————— 
295 LDA CV 





296 CMP #20 
297 BCS M3 
DEJA POSITIONNEE 

298 LDA CV 

299 STA CVANT 
300 LDA #0 

301 STA CH 

302 LDA #20 
303 STA CV 

304 STA S22 
305 LDA #24 
306 STA $23 
307 JSR $FC58 
308 M3 JSR CLOCHE 
309 LDA #MESS3 
310 LDY /MESS3 
311 JSR AFFICH 
312 LDA #0 

313 LDX SECT 
314 INX 

315 JSR LINPTR 
316 LDA #MESS3B 
317 LDY /MESS3B 
318 JSR AFFICHE 
319 JSR CR 

320 JSR CR 

321 JMP LECTUR 
322 ONLIT LDA LECFLG 
323 BNE ONLIT2 
324 JSR WINDOW 
325 DEC LECFLG 
326 ONLIT2 JSR CR 

327 DEC C1 

328 LECT2 LDA #00 
329 STA F 

330 STA FLAG2 
331 NUMERO LDA C1 

332 ASL 

333 ASL 

334 ASL 

335 SEC 

336 SBC CI 

337 CLC 

338 ADC #01 
339 CLC 

340 ADC F 

341 STA NUMFIC 
342 PRTITL TAX 

343 LDA #0 

344 JSR LINPTR 
345 LDX #2 

346 JSR PRBL2 
347 LDA #$4 
348 STA CH 

349 LDA /ORIG 
350 CLC 

351 ADC C1 

352 STA $CF 
353 LDA F 

354 ASL 

355 ASL 


; FENETRE MENU 


AFFICHE SECT 


:Cl1=C1-1 


:F=0 
:O=LIRE 1 SECT 


; A->Cx7 


; A->F+1+7*C 


:AFF X=2 SPACE 
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356 ASL 416 ; 

















357 ASL ddr à === 
358 ASL ; F*32 418 ;= = 
359 CLC 419 := EDITION DU CATALOGUE = 
360 ADC F 420 := - 
361 ADC F 421 j====mmmmmmsmmensmsmm—— 
362 ADC F ; F#35 422 ; 

363 ADC #ORIG+9 423 EDIT  JSR CR 

364 STA $CE 424 LDA #$06 

365 LDX #$00 425 STA CH 

366 LDA ($CE, x) 426 M4 LDA #MESS4 

367 BEQ MOINS 427 LDY /MESS4 

368 CMP #$FF 428 JSR AFFICH 

369 BEQ MOINS 429 ; 

370 CMP #$30 930 3" 
371 BNE PRESEN 431 :; SAISIE DU CHOIX 

372 EDA #"£c" ; COMMENTAIRE 932 = —— 
373 BNE MOINS+2 ; JMP 433 ; 

374 PRESEN LDA #"+" ; FICE PRESENT 434 LDA #" " 

375 BNE MOINS+2 435 JSR KEYIN 

376 MOINS LDA #7-" ; FICH EFFACE 436 PHA 

377 JSR VIDOUT 437 JSR VIDOUT 

378 INC CH 138 PLA 

379 LDX #$1E ;: 30 BOUCLES 439 CMP» #"D} 

380 BCLA  LDY #$03 440 BEQ DEPLAC 

381 LDA ($CE),Y 441 CMP #"E" 

382 JSR VIDOUT 442 BEQ ECHNGE 

383 INC $CE 443 JSR BELL 

384 DEX 444 JMP EDIT 

385 TXA 445 ; 

386 BNE BCLA 446 ;=======pm2mmsnessesmnssss——— 
387 LDA FLAG2 ;0=LIRE 1 SECT 447 ;= = 
388 BEQ CONT 448 ;= DEPLACEMENT = 
389 RTS # SINON, ->MODIF 449 ;= = 
390 CONT  LDA #$8D ;C=R 450 : D 
391 JSR CTRL.S ; PAUSE 451 ; 

392 INC F 3 F=F+1l 452 DEPLAC JSR CR 

393 LDA F 453 JSR CR 

394 CMP #$07 454 M5 LDA #MESS5 

395 BNE NUMERO 455 LDY /MESS5 

396 INC Cl ; C=C+1l 456 JSR AFFICH 

397 LDA NBSECT 457 ; 

398 CMP C1 458 3 
399 BCC *+5 459 ; SAISIE DE LA REPONSE 

400 JMP LECT2 DO, === rss 
401 JSR CR 461 ; 

402 LDA #$A0 462 REP5 LDX #S05 

403 JSR KEYIN 463 LDA #M5-1 

404 CMP #" * 464 LDY /M5 

405 BNE *+11 465 JSR SAISIE 

406 INC C1 466 ; 

407 LDA #$01 GT 
408 STA C2 468 ; TESTÉ, ST. C2<CL 

409 JMP TEST 469 je ——— 
410 JMP MENU 470 ; 

AL de 471 LDA C2 

412 MESS2 STR “: ERIL À SRUETCES ED ERBMON 472 CMP Cl 

TE RUETCES rel UD oN" 473 BCS OVER? 

413 $ 474 TAX 

414 MESS3 STR " TNEMELUES" 475 LDA C1 

415 MESS3B STR "SRUETCES " 476 STA: C2 
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STX C1 
OVER? SEC 
SBC C1 
STA BOUCLE 
î 
: TESTE SI DEPASSEMENT DE NUMMAX 


: PAR LA ZONE DE RECEPTION 


LDA NBSECT 
CLC 
ADC BOUCLE 
NUMMAX 
MONTE? î 
BCC MONTE? î 
CLOCHE 


JMP M5 


=NUMMAX 
<NUMMAX 


MONTE? WINDOW 
LDA C1 
NBSECT 


MONTEE C1>c3 


. 


LDA C2 
STA Cl ; 
LDA NBSECT 


C1=c2 


C3=C3+BOUCLE 
C2=C3 


BOUCLE ; 
STA C2 ; 
BOUCLE 
BCLS 
LDA NBSECT 
MONO 


MONO 


MONTEE 


Le 


mms 


ECHNGE JSR CR 
JSR CR 
M6 LDA 
/MESS6 


AFFICH 


mm 


M6 

SAISIE 

#$01 ; 
BOUCLE 

JSR WINDOW 


1 BOUCLE 
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538 ; 
539 BCL5 LDA C1 

540 JSR ADRESS 
541 LDA #S$00 
542 STA A4L 
543 LDA #$46 
544 STA A4H 
545 LDY #$00 
546 JSR MOVE 
547 LDA DESTL 
548 STA A4L 
549 LDA DESTH 
550 STA A4H 
551 LDA C2 

552 JSR ADRESS 
553 LDY #S$00 
554 JSR MOVE 
555 LDA #$00 
556 STA AlL 
557 LDA +#$46 
558 STA AlH 
559 LDA #$22 
560 STA A2L 
561 LDA #$46 
562 STA A2H 
563 LDA DESTL 
564 STA A4L 
565 LDA DESTH 
566 STA A4H 
567 LDY #$00 
568 JSR MOVE 
569 LDA C1 

570 CMP C2 

571 BCS POS 
572 DEC C1 

573 DEC C2 

574 JMP POS+4 
575 POS INC C1 

576 INC C2 

577 DEC BOUCLE 
578 BNE BCL5 
579 JSR CR 

580 INC C 

581 LDA C 

582 STA C1 

583 LDA #$01 
584 STA C2 

585 JUMP TEST : VERS LECTURE 
586 MESS4 STR " : XIJOHC ERTOV@G@ENOZ ENU'D 
TNEMECALPED -— ÎDi GEGNAHCE - JE{" 
587 ; 

588 ; 

589 MESS5 STR ": NOITANITSED AL ED .PUS 


ETIMIL AL TERECALPED A ENOZ AL ED SETIMIL SEL 
ZERTNE" 
590 ; 

591 + 

592 MESS6 ON 


STR “: RECALPED A REIHCIF ED 


SEL Z2ERTNE* 
593. & 
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595 : = 
596 ;= MODIFICATION DES TITRES = 
597 ;= = 
598 /===============e 

599 + 

600 MODIF LDA #MESS7 

601 LDY /MESS7 

602 JSR AFFICH 

603 ; 

604 ; "2" 
605 > SAISIE DE LA REPONSE 

606 ;------- == - = 
607 ; 

608 LDX #01 

609 LDA #MODIF-1 

610 LDY /MODIF 

611 JSR SAISIE 

612 JSR WINDOW 

613 ; 

614 ;----…… 
615 ; CALCUL D'ADRESSE 

616 ;---------- - = —————— 
617 ; 

618 LDA C1 

619 JSR ADRESS ; DEBUT EN 
DESTL, DESTH 

620 JSR CR 

621 ; 

622 3" —— 
623 ; AFFICHAGE DU TITRE À MODIFIER 
624 ; 
625 ; 

626 M8 LDA #MESS8 

627 LDY /MESS8 

628 JSR AFFICH ;NOUVEAU TITRE 
629 JSR CR 

630 ; 

631 LDA *#S$SFF 

632 STA FLAG2 3 SFF=1 TITRE 
633 LDA Cl 

634 STA NUMFIC ;: No DU TITRE 
635 LDA C 

636 STA C1 ; No 
637 LDA NUMFIC 

638 JSR PRTITL 

639 =: 

640 ; 

GAL === 
642 ; SAISIE DE LA CHAINE 

643 5" 
644 ; 

645 LDA #6 

646 STA CH 

647 LDA #$80 ; CARACT NUL 
648 JSR GETLIN 

649 ; 

650 ; TEST 

651 ; 

652 TXA 

653 BNE ECL7 ; NON VIDE 
654 M9 LDA #MESS9 














SECTEUR 


655 LDY /MESS9 

656 JSR AFFICH 

657 ÉDA- Ye 

658 ‘JSR KEYIN 

659 CMP #°0"* 

660 BEQ OUI? ; PEUT-ON EFF 
661 CMP #0" 

662 BEQ OUI? ; IDEW 

663 LDA #"N° 

664 JSR VIDOUT 

665 LDA #"O"'' ;: ON NE VEUT 
PAS EFFACER 

666 JSR VIDOUT 

6617 LDA #"N" 

668 JSR VIDOUT 

669 JSR CR 

6170 JMP FINI ; VERS LECTURE 
6171 ; 

672 OUI? LDA #'O" 

673 JSR VIDOUT 

674 LDA #"U" 

675 JSR VIDOUT 

6176 LDA #'"1" 

6717 JSR VIDOUT 

618 JSR CR 

679 LDY #$00 

680 LDA {DESTL),Y 

681 BEQ *+6 ; A=0 

682 CMP #523 

683 BCC NON # À <35 

684 LDA #$FF :FICH SUPPRIME 
685 STA (DESTL),Y 

686 LDY #$03 

687 BNE BCL10-2 ; JMP 

688 NON JSR CR 

689 JSR CR 

690 M10 JJSR CLÔOCHE 

691 LDA #MESS10 

692 LDY /MESS10 

693 JSR AFFICH ; ON NE PEUT 
PAS EFFACER 

694 JSR CR 

695 JMP MENU 

696 BCL} CPX #521 :X<33 ? 

697 BCC xX<33 

698 LDX #S$20 :X=32 

699 X<33 STX C1 ; SAUVE X 
700 ; 

701 3 

702 ;ON REMPLACE UN TITRE PAR UN COMMENTAIRE? 
703 ;ÿ-----— 

704 ; 

705 LDY #$00 

706 LDA (A1L),Y 

707 BEQ COMMEN 

708 CMP #$30 ; COMMENTAIRE ? 
709 BEQ COMMEN 

710 CMP #SFF :FICH EFFACE ? 
711 BEQ COMMEN 

712 BNE TITRE 

713 COMMEN LDA #$30 
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714 


STA (AlL),Y ; 


D'UN ‘CATALOG’ 


715 + 

716 TYA 

717 LDY #$21 ; MISE A 
718 STA (AlL),Y ZERO DU 
719 INY ; NOMBRE DE 
720 STA (AlL),Y ; SECTEURS 
T1 LDY #2 

722 STA (A1L),Y : COD FICH TEXT 
723 ; 
724; 

725 ? TRANSFERT IN -> TITRE 

HOGNT = === 

721 % 

728 TITRE LDY #$03 

729 LDX #$00 

730 BCL9 LDA IN,X 

731 STA (AlL),Y 

732 INX 

733 INY 

734 CPX C1 

735 BCC BCL9 He-Coil 

7136 ? 

737 3-2 

738 ÿ COMPLETE LE TITRE AVEC 

739 ; DES BLANCS { MAX. 30 CARACTERES) 

740 = 

741 3 

742 LDA #" " 

743 BCL10O CPY #$21 

744 BCS FINI ; Y>=30 

745 STA (A1L),Y 

746 INY 

747 BNE BCLI10 ; JMP 

748 FINI INC C 

749 LDA C 

750 STA C1 

751 LDA #$01 

752 STA C2 

753 JSR CR 

754 JMP TEST : VERS LECTURE 
255.2 

756 

757 MESS7 STR ": REIFIDOM À ERTIT UD OREMUN" 
158 :; 

759 # 

TGONMESSE: STRESS A 1 TL 
761 ? 

162 ; 

763 MESS9 STR ": N/O ? ERTIT EC RECAFFE 
SUOV-ZELUOV" 

764 ; 

765 ; 

766 MESS10 HEX 21 ; LONG MESSAGE 
767 BLK "EMIRPEUS NON REIHCIF : 
ELBISSOPMI" 

768 ; 

769 ;=====mmmmmmmmmmmmmmmmmmmmmmmmees— 
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CODE 
POUR FICHIER SUPPRIME MAIS APPARAISSANT LORS 


BCLI11 


#$02 
IBCMD 
SECT 
BOUCLE 
#$11 
IBTRK 


- #$S0F 


IBSECT 
#$520 
IBBUFP+1l 
ADR+1 

#0 
IBBUFP 
ADR 

DOS 
BOUCLE 
BOUCLE 
#$SFE 
END 
IBBUFP+1 
#1 
(ADR), Y 
IBTRK 


(ADR),Y 
IBSECT 
ADR+1 
BCLIi 


= ECRITURE SUR DISQUETTE = 


ECRITURE 


:PISTE $11 


: SECTEUR $F 


:BUFFER 


EN $2000 


No PISTE 


:No SECTEUR 


JSR WINDOW 
JSR SFC58 
JSR CR 

LDA #MESS13 
LDY /MESS13 
JSR AFFICH 
JSR CR 

LDA #$FF 
STA FINFLG 
JUMP MENU 


MESS11 HEX OC 


INV *“ .ON RUETCEL" 


MESS12 HEX 19 


INV " 1JN/0/2/1( ZEMRIFNOC - " 


‘ 


MESS13 STR "ENIMRET TNEMERTSIGERNE" 











831 ;= - 891 LDA ADR+l 
832 ;- SOUS-PROGRAMMES = 892 PHA ; EMPIL NOUVEL 
833 ;= = 893 LDA ADR 
34 === 894 PHA ;ADRESS RET 
825 > 895 JSR BELL 
836 ; 896 RTS 
837 897 ; 
838 ; AFFICHAGE DU MESSAGE 898 ;ÿ 
AO pee ee 899 ; TRAITEMENT DE LA REPONSE 
840 ; 900 = 
841 AFFICH STA ADR 901 ; 
842 STY ADR+1 902 TRAITE LDY #$00 
843 LDY #$00 903 LDX #$01 
844 LDA (ADR),Y 904 LDA FLAG2 ;PAS DE 
845 TAX - ; LONG MESSAGE VIRGULE A TESTER 
846 MESS  TAY 905 BEQ T2 
847 LDA (ADR),Y 906 LDA #0 
848 CMP #"@" ; CODE POUR 907 STA $FF 
RYC: 908 BCL6E  LDA IN,X 
849 BEQ R.C. 909 CMP $SFF ; VIRGUL OU CR 
850 VIDEO JSR VIDOUT 910 BNE T1 
851 DEX 911 DEX ; REPONSE 
852 TXA 912 LDA IN,X # SUR 1 OCTET 
853 BNE MESS 913 AND #$0F ; A=A-S$SRO 
854 RTS 914 JMP STORE 
855 RC: JSR CR 915 TL INX 
856 BNE VIDEO+3 ;JMP 916 LDA IN,X 
857 ; 917 CMP $FF ; VIRGUL OU CR 
DO AN ee mel eee Ph eric 918 BEQ DEUX é OUI ! 2 
859 ; SAISIE DES REPONSES OCTETS À TRAITER 
DGO esse tree ne carre pme 919 JSR OCT2 : NON : 3 
861 ; 920 STA C1,Y 
862 SAISIE STA ADR 921 DEX 
863 STY ADR+1 922 DEX 
864 STX FLAG ; NB MIN OCTET 223 LDA IN,X 
865 LDA #v * 924 CMP #S$B0 ; =0 ? 
866 JSR GETLIN ; SAISIE 925 BEQ NXT ; OUI -> SUITE 
867 CPX #$00 926 CMP #$B1l : =1 7? 
868 BNE SAISI2 ;VERS MENU 927 BNE DEUX? 
869 JMP M1-3 : SANS MODIF 928 CLC 
870 SAISIZ CPX FLAG 929 LDA C1,Y 
871 BCC ERREUR 930 ADC #$64 ; AJOUTE 100 
872 DEC FLAG 931 INX 
873 LSR FLAG ; NB VIRGULES 932 INX 
874 LDA FLAG 933 JMP STORE 
875 STA FLAG2 934 DEUX DEX 
876 BCLI  LDA IN-1,X 935 LDA IN, X 
877 CMP #"," ; VIRGULE ? 936 JSR OCT2 
878 BNE *+4 937 JMP STORE 
879 DEC FLAG 938 DEUX? CMP #$B2 5 =2 ? 
880 DEX 939 BNE ERREUR ;DEPASSEMENT 
881 BNE BCLI 940 INX 
882 LDA FLAG 941 INX 
883 BEQ TRAITE 942 PDA CUT 
884 ; 943 CLC 
885 944 ADC #$C8 ;: AJOUTE 200 
886 ; TRAITEMENT DES ERREURS 945 BCS ERREUR #5 255 
887 3 946 STORE BEQ ERREUR ENTREE = 0 
888 ; 947 CMP NUMMAX 
889 ERREUR PLA ;DEPIL ANCIENN 948 BEQ STORE? 
890 PLA ; ADRESS RETOUR 949 BCS ERREUR ; ENTREE>NUMMAX 
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950 STORE2 STA C1,Y 979 ADC C1,Y 





951 NXT INX 980 INX 
952 INX 981 RTS 
953 INX 982 ; 
954 INY 983 7; 
955 DEC FLAG2 ; SI 0, PLUS 984 ; CALCULS D'ADRESSES 
DE VIRGULE A 985 ; — Du = 
TESTER 986 ; 
956 BEQ T2 987 ADRESS SEC 
957 LDA FLAG2 988 SBC #$01 
958 CMP #SFF 989 STA NUMFIC 5 N-1 
959 BNE BCL6 990 LDA #$00 
960 LDA #0 991 STA NUMFIC+1 
961 STA FINFLG ; DRAPEAU ZERO 992 LDX #$08 
962 RTS 993 LDA NUMFIC 
963 T2 LDA #$8D ; ON TESTE CR 994 STA C 
964 STA $FF 995 EDA NUMFIC+1 
965 BNE BCL6 ; JMP 996 DIVID ASL C ; DIVISION 
966 ; 997 ROL ; PAR 7? 
967 ; 998 CMP #$07 ; DE 
968 OCT2 AND #$0F ; A: A-$B0 999 BCC NEXT : NUMFIC 
969 STA Cl:Y 1000 SBC #$07 
970 DEX 1001 INC C ; C->No SECT 
971 LDA IN,X 1002 NEXT DEX 


Editeur Plein Ecran 


Le Pacha 
Apple +, /e, /K 


- Listez vos programmes Basic en avant et en arrière. 


- Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

. Recherchez toute chaîne de caractères. 

. Choisissez vous-même les codes de contrôle d'EPE. 

+ Modifiez EPE : le fichier source est sur la disquette. 


150,00 F TTC franco 
(bon de commande page 74) 





97e AND #$0F ; À: A-$B0 1003 BNE DIVID 

973 STA IN,X 1004 STA F ; F->No TITRE 
974 ASL 1005 LDA /ORIG 

975 ASL ; A*4 1006 CLC 

976 CLC ; C=0 1007 ADC C 

977 ADC IN,X ; A*4+A 1008 STA AlH 


978 ASL ; A*10 1009 STA A2H 
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1010 STA DESTH RETOUR PUISQUE PAS DE RTS 

















1011 LDA F 1071 JMP MENU 

1012 ASL 1072 OK RTS 

1013 ASL 1073 ; 

1014 ASL 1074 j==mmmen-——— nn 
1015 ASL 1075 ;= = 
1016 ASL 1076 ;= TABLE 10B ET CARACTERISTIQUES = 
1017 ELC 1077 ;= = 
1018 ADC F 1078 ; === 
1019 ADC F 1079 ; 

1020 ADC F 1080 DOS LDA /10B 

1021 ADC #ORIG+9 1081 LDY #I0B 

1022 STA AlL 1082 USR RWTS 

1023 STA DESTL 1083 RTS 

1024 CÉC 1084 ; 

1025 ADC #$22 1085 IOB HEX 0160 

1026 STA A2L 1086 IBDRVN HEX O1 

1027 RTS 1087 HEX 00 

1028 ; 1088 IBTRK HEX 11 

1029 ; 1089 IBSECT HEX OF 

1030 ; CONFIRMATION CHOIX 1090 ADR CARACT 

1031 ;---------- 1091 IBBUFP HEX 0020 

1032 ; 1092 HEX 0000 

1033 OK? JSR CLOCHE 1093 IBCMD HEX O1 

1034 LDA #MESS11 1094 HEX 00006001 

1035 LDY /MESSI1 1095 ; 

1036 JSR AFFICH 1096 CARACT HEX 0001EFD8 

1037 1097 ; 

1038 LDA IBDRVN 1098 = 
1039 ORA #$30 ; A=A+S30 1099 ; POSITIONNE LA FENETRE TEXTE 

1040 JSR VIDOUT 1100 = mme 
1041 ; 1101 ; 

1042 LDA #MESS12 1102 WINDOW LDA #0 

1043 LDY /MESS12 1103 STA S22 

1044 JSR AFFICH 1104 LDA #$14 

1045 :; 1105 STA S$23 

1046 LDA #" " 1106 LDA CVANT 

1047 JSR KEYIN 1107 STA CV 

1048 PHA 1108 RTS 

1049 JSR VIDOUT 1109 ; 

1050 PLA 1110 ;------- _——— 
1051 CMP #"o" 1111 y SON DE CLOCHE 

1052 BEQ OK 1112 5 = 
1053 CMP #"o" 1113 CLOCHE LDY #$C0 

1054 BEQ OK 1114 JSR BELL2+3 

1055 CMP #"1" 1115 LDA #$20 

1056 BNE LECT2? 1116 LDY #$C0 

1057 AND #SFF 1117 JSR BELL2 

1058 STA IBDRVN 1118 BELL  LDA #$20 

1059 RTS 1119 LDY #$C0 

1060 LECT2? CMP #"2" 1120 JSR BELL2 

1061 BNE *+8 1121 RTS 

1062 AND #SFF 11222 

1063 STA IBDRVN 1123 TEMPO LDX #0 

1064 RTS 1124 BCLTEM DEX 

1065 LDA #$00 1125 BNE BCLTEM 

1066 STA CH 1126 RTS 

1067 DEC CV 1127 ; 

1068 JSR CLREOL 1128 LENGTH EQU *-BEGIN 

1069 PLA ;DEPILE 2 OCT 1129 PAU 

1070 PLA ;DE ADRESSE DE 1130 END 
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Deux utilitaires et un programme » 
de gestion au sommaire de la Pom's 20 : 


+ Screen Maker, l'équivalent en assembleur du programme de 
personnalisation des disquettes Mac paru dans la revue n°16 : 
Transformer un document MacPaint en une image de ‘Boot. 


- Des messages en boîtes, un utilitaire dont le source est 
abondamment commenté, pour la gestion de boîtes à dialogue. 


+ Un programme de gestion de comptes bancaires en Basic 
Microsoft doté des facilités propres au Mac. 


80,00 F TTC franco, Bon de commande page 74 


[Disquette Macintosh). 
14/15/16 


14, Pet 1 de Pam J Disquette Macintosh 

autres ÿ 
ma en me 1e 
SES Caïro”’, + Nouvelle version de Mac Write 


+ programme Lorsime, 
+ programme ‘Copie de disque” 


+ Lucy, et 5, accessoires de bureau, 
aux sources largement commentés, 
ce 
articles. 


15090 F TTC france 


{Disquette Macintosh} 


Disquette Macintosh f 
numéro 18 


* Version 4.1 du Finder, plus rapide 
la 


que 
+ ‘System U * pour implanter 
Digger be voulut 


. ‘BR Demo’ ne d 


Au programme des disquettes Pom's Macintosh 


840 F TTC france 
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Puisque nous ne 
VOUS aviez jeun NOUS 






















Aprle a ke logo Apple son! des marques dépasées d'Appie Computer Inc. 





LL À 'ersion Cal MousePaint 
Une des plus grandes bibliothèques de logiciek 
| programmes compatibles avec l'Apple Ile : jeux 
| 41 gestion de base de données, analyse financièré 





Un clavier 63 touches type AZERTY comprenant une accentuation complète et des 


caractères majuscules /minuscules intégrés. 





Connecteur Connecteur Connecteur Connecteur Connecteur pour le lecteur Connecteur pour 
pour la souris. pour le modem. pour TV. couleur. pour l moniteur vidéo. de disquette externe. im, 












CLM. & BBDO. 


savions pas de quoi 
vous avons tout donné. 
















| Budget Familial Apple Writer Apple Works Orenis IT Les Oursons malins 
s au monde; 16.600 Voici 8 exemples de œæ que vous pouvez afficher sur voire 
À trätement de texte, écran. 8 parmi 16.000 ! à vous de découvrir les autres. 
planification. Lorsque vous aurez essayé l'Apple Ec vous ne regretterez pas 
notre générosité. 





ns" 





se Ra l'Apple Ilc relié à 
définition et à la souris. Ses connexions directes vous permettent d'utiliser 
toutes les fonctions dont vous avez besoin : imprimante, modem... 
avons donné autant de place, autant de beauté, ÿ 
(128 Ko), autant de possibilités 
à c'estque œla 


( 





D 


Apple présente l'Apple Ilc. Ge, 








‘actualité 
les bancs d'essai 
les guides d'achat 
le dossier 
les programmes 


ORDINATEUR 
INDIVIDUEL 











LA RÉFÈRENCE EN M 
LES SECRETS DU LOGICIEL RÉUSSI 
DOSSIER ORDNATEURS 


PLUS DE nUpARATES en DES IDEES EN 


MANTETS PT TATITS 


GEM ; TRANSFORMEZ 
VOTRE TM EN MACINTOSH 


APPLEWORES : UN PETIT 
INTÉGRÉ ASTUCIEUX 





A L'ORDINATEUR INDIVIDUEL, jes rédacteurs, jes conseillers techniques, les correspondants à 
l'étronger, l'équipe entière se mobilise pour vous foumir tous les mois une informotion 
complète et de qualité. Le monde de ja micro bouge: L'O.f, teste pour vous jes micros et 
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équipé el vous souhaiteztirerle maximum de votre machine ? Les spécialistes de L'O.J. vous livrent 
conseils, programmes inédits etastuces d'utilisation. Lisez chaque mois L'ORDINATEURINDIVIDUEL. 
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Gérard Michel 


ette petite routine vous 

permettra d'afficher 

facilement les messages 

de vos programmes 
Basic sous la forme de ces 
"boîtes à dialogue” dont le 
Macintosh raffole. 


Le principe d'utilisation en est 
simple, puisque les seules 
données à fourmir sont : 


+ les dimensions de la boîte, via 
l'indication du point 
supérieur gauche et du point 
inférieur droit du rectangle 
dans lequel elle s'inscrira 
(coordonnées de ces deux 
points par rapport au coin 
supérieur gauche de la fenêtre 
d'affichage du Basic) ; 


+ les dimensions du rectangle 
dans lequel apparaîtra le texte 
du message sur une ligne 
(coordonnées des deux points 
significatifs calculées cette fois 
par rapport au coin supérieur 
gauche de la boîte elle-même) ; 


+ les dimensions du “pseudo- 
bouton” de contrôle (coor- 
données tou jours indiquées par 
rapport à la boîte). Ce bouton 
contiendra le message standard 
"Return S.V.P." ; 


« l'adresse de la variable chaîne 
de caractères où est stocké le 
texte du message. 


Des messages 
en boîtes 


Mise en œuvre 


Le code de la routine en 
langage-machine est implanté 
dans un tableau de variables 
entières (CO%(274) dans notre 
programme d'exemple). 

En fait, les premiers éléments de 
ce tableau contiennent les 
paramètres de la boîte, du 
rectangle de texte et du 
bouton-contrôle : 


e COZ(0) à COZ(3) : coor- 
données des deux points 
définissant les dimensions de 
la boîte ; 

+ _COZ%(4) à COZ(7) : idem pour 
le rectangle de texte ; 

+ COZ(8) à COZ(11) : idem 
pour les dimensions du 
“bouton” ; 

+ COZ(12) à COX (19) : défini- 
tion du texte contenu dans le 
“bouton”. 

La zone CO%(20) à CO%(190) 

sert quant à elle de tampon pour 

les routines système qui gèrent 
les fenêtres de dialogue et les 
événements qui s'y produisent. 

Le code de la routine commence 

donc en CO%(191). 


Appel de la routine 


Il résulte des instructions : 

- At VARPTR(V$) avec la 
nouvelle version du Basic 
Microsoft 


Source de la routine 


GO00 .Trap 
0000 .Trap 
0000 .Trap 
0000 -Trap 
0000 .Trap 
0000 -Trap 
0000 -Trap 
0000 -Trap 
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_FrontWindew 
_NewDialog 
_SetPort 
_NewControl 
_TextBox 
_ModalDialog 
_CloseDialog 
_SelectWindow 


- ou CALL A! (VARPTR(VS)) 

avec l'ancienne version 

Où : 

+ A! = VARPTR(COZ%(191)) = 
adresse de début du code de la 
routine ; 

+ V$ = chaîne de caractères 
contenant le message à afficher 
(au sujet du mode de stockage 
des variables par le Basic et 
des descripteurs de chaînes, 
repoitez-vous aux cahiers Mac 
des précédents numéros de 
Pom's). 


La routine dessine la boîte, y 
place le texte du message, dessine 
le bouton-contrôle et attend un 
événement, le seul qui puisse 
amener la disparition de la boîte et 
le retour au Basic étant la frappe 
de la touche "RETURN". 


Vous pouvez bien sûr modifier 
les variables utilisées et leur 
contenu, ainsi que les positions et 
dimensions des différents 
éléments du "dialogue", avant 
chaque appel, afin de les adapter 
aux besoins. 


Les commentaires qui accom- 
pagnent la liste du programme 
source en assembleur vous 
permettront de suivre le 
déroulement des opérations, et 
notamment le nom et le rôle des 
différentes routines système 


utilisées. 


$A924 Roùütines utilisées par 
$A97C le programme. 

$SA873 Sur un 512 Ko, la défi- 
$A954& nition des ‘Traps' peut 
SAICE être remplacée par : 
$A991 INCLUDE MacTraps.D 
$SA982 

$A9IF 
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0000 0064 0064 OOBE 0190 Rectangle DC 100,100,190,400 

0008 000F 0014 0024 O12C T2 DC 15,20,36,300 

0010 003C 0082 0050 0122 TO DC 60,130,80,290 

0018 0E 52 65 74 75 72 6E 20 53 2E 56 2E 50 2E 20 00 
Return DC.B 14,'Return S.V.P. ',0 

0028 XXXX XXXX XXXX Dstorage  DCB $AA,0 

017C 0000 ItemHit DC (e) 

O17E Texte EQU D4 

O17E Long EQU D3 

O017E 

017E 4E56 0000 LINK A6, #0 

0182 226FE 0008 MOVEA.L 8(A6),A1 

0186 1629 0001 MOVE.B 1l(A1), Long 

018A 0283 0000 O0FF ANDI.L #$000000FF, Long 

0190 2829 0001 MOVE.L Ll(Al),Texte 

0194 0284 OOFF FFFF ANDI.L #$SOOFFFFFF, Texte 

019A Dialogue 

019A 42A7 CLR.L — (SP) 

019C A924 _FrontWindow 

019E 265F MOVE.L (SP)+,A3 

OC1AC 42A7 CLR.L — (SE) 

0142 487A FE84 PEA Dstorage 

O1A6 487A FES58 PEA Rectangle 

OIlAA 4227 CLR.L — (SP) 

OLAC 1F3C FFFF MOVE.B #-1,-(SP) 

C1B0 3F3C 0001 MOVE #1,-(SP) 

01B4 2F3C FFFF FFFF MOVE.L #-1,-(SP) 

O01BA 1F3C 0000 MOVE.B #0,-(SP) 

OIBE 2F3C 0000 0000 MOVE.L #0,-(SP) 

01C4 2F3C 0000 0000 MOVE.L #0,-(SP) 

01Cà A97D _NewDialog 

O1CC 2E17 MOVE.L (SP),D? 

OICE A873 _SetPort 

01D0 42A7 CLR.L — (SP) 

01D2 2F07 MOVE.L D7,-(SP) 

014 487A FE3A PEA TO 

01D8 487A FE3E PEA Return 

O01DC 1F3C FFFF MOVE,B #-1,-(SP) 

O1EO 2F3C 0000 0000 MOVE.L #0,-(SP) 

01E6 2F3C 0000 0000 MOVE.L #0,-(SP) 

O1EC 2F3C 0000 0000 MOVE.L #0,-(SP) 

01F2 A954 _NewControl 

01F4 201F MOVE.E ({(SP)+,D0 

01F6 

01F6 2F04 MOVE.L Texte,-(SP) 

01F8 2F03 MOVE.L Long,-{SP) 

OIFA 487A FEOC PEA T2 

O1FE 3F3C 0001 MOVE #1,-(SP) 

0202 ASCE _TextBox 

0204 Attente 

0204 42A7 CLR.L — (SP) 

0206 487A FF74 PEA ItenHit 

020À A991 _ModalDialog 

020C 303A FF6E MOVE ItemHit,DO 

0210 0C40 0001 CMPI #1,D0 

0214 66 EE BNE Attente 

0216 2F07 MOVE.L D7,-(SP) 

0218 A982 _CloseDialog 

O21A 2F0B MOVE.L A3,-(SP) 

021C A91F _SelectWindow 

021E 2F0B MOVE.L A3,-(SP) 

0220 A873 SetPort 

0222 4ESE UNLK A6 

0224 4E75 RTS 


Se 


. 


…. 


D 


. 


… Se Se Ne Ne Se Se 


. 


D . 


. 


DA 


. 


Boîte be: 

Rectangle pour texte | 
Rectangle pour contrôl 

contenu du contrôle ” 
Tampon pour boîte à dialogue 
Stockage événement dialogue 


adresse descripteur de chaîne 
longueur de la chaine 
convertie en un long-mot 


adresse de la chaîne dans D4 


pointeur sur fenêtre active 
qui est stocké dans A3 


pas de titre 

—1 = $FF = VRAI => Visible 
type fenêtre=boîte à dialogue 
la fenêtre vient sur le dessus 
0 = FAUX = pas de "GoAway” 

les autres param. sont nuls 
ouvre la boîte à dialogue 
met son pointeur dans D? 
boîte = port d'entrée/sortie 


précise utilisation boîte 
contrôle visible 
autres param. à 0, dont type 


contrôle (0=Return pour nous) 


ouvre le "bouton" contrôle 
enlève son pointeur de la pile 


justificatien = centré 
“dessine” texte dans rect. T2 


attend un événement dans boîte 


si code événement = 1=> Return 
sinon, attendre encore 


referme la boîte 
fenêtre initiale en activité 


et port d'entrée/sortie 
retour au Basic 
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Programme de 


démonstration 


DEFINT A-Z 

DIM CO(274) 

* Les deux premières lignes donnent les paramètres 

" de la boîte, du rectangle de texte et du rectangle de 

* contrôle, ainsi que le contenu de ce dernier 

DATA 100,100,190,400,15,20,36,300,60,130,80 
DATA 290,8&H0E52,8&H6574,8&H7572,&H6E20 
DATA &H532E,&H562E,&H502E,&H2000 

* Stockage de “l'événement dans la boîte” 

DATA 0 

* Code de la routine 

DATA &H4E56,0,8&H226E,8,&H1629,1,&H0283,0 
DATA &HFF,&H2829,1,&H0284,&HFF,&HFFFF 
DATA &H42A7,&HA924,8H265F,&H42A7,8&H487A 
DATA &HFE84,8H487A,&HFE58,&H42A7,8&H1F3C 
DATA &HFFFF,&H3F3C;1,&H2F3C,&HFFFF 

DATA &HFFFF,&H1F3C,0,&H2F3C,0,0,&H2F3C.,0 
DATA 0,&HA97D,&H2E17,&HA873,&H42A7 
DATA &H2F07,8&H487A,&HFE3A,8&H487A 

DATA &HFE3E,&H1F3C,&HFFFF,&H2F3C,0,0 
DATA &H2F3C,0,0,&H2F3C,0,0,&HA954,8&H201F 
DATA &H2F04,8&H2F03,8&H487A,&HFE0C,&H3F3C 
DATA 1,&HA9CE,&H42A7,8&H487A,8&HFF 74 
DATA &HA991,&H303A,&HFF6E,&H0C40,1 
DATA &H66EE,&H2F07,&HA982,&H2F0B,&HA91F 
DATA &H2F0B,&HA873,8&H4E5E,&H4E75 

FOR 1-0 TO 19:READ COUI):NEXT 

FOR i=20 TO 189:CO(i)-0:NEXT 

FOR i=190 TO 274:READ COW):NEXT:DE-191 
"DE=début du code exécutable 

M1$="Ceci est le premier message“ 

M2$="Ceci est le deuxième message” 

M3$="Ceci est le troisième message" 
AI=VARPTR(CO(DE)):A! VARPTR(M1$) 


Basicium.… 


Le Basic enrichi 


Cet utilitaire vous permet de : 


Imprimer l'écran 40 ou 80 
colonnes par “JH” 


Nettoyer mémoire très 
rapidement par “]F". 


Gérer des messages, la réponse 
étant contrôlée. 





FOR i=0 TO 10 

PRINT "Texte de remplissage /”; 

PRINT "contrôle retour Basic 

NEXT:PRINT 

PRINT “Entrez un texte ci-dessous S.V.P. 

INPUT z$:PRINT:PRINT z$ 

A!I=VARPTR(CO(DE)):A! VARPTR(M2$) 

FOR i=0 TO 10:PRINT "Texte de remplissage /”; 

PRINT “contrôle retour Basic 

NEXT:PRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 

INPUT z$:PRINT:PRINT z$ 

A!'=VARPTR(CO(DE)):A! VARPTR(M3$) 

FOR i-0 TO 10 

PRINT “Texte de remplissage / ”; 

PRINT “contrôle retour Basic 

NEXT:PRINT 

PRINT ‘Entrez un texte ci-dessous S.V.P. 

INPUT Z$:PRINT:PRINT z$ 

CO(0)=200:C0(1)=200:CO(2)=290:CO(3)=500 

M1$="Encore un message en boîte 

AI=VARPTR(CO(DE)):A! VARPTR(M1$):PRINT 

PRINT “Encore une grande phrase à suivre 

INPUTz$ 

DATA 30,20,110,500,15,20,35,490 

FOR i=0 TO 7:READ CO(i):NEXT 

M2$="Ce dernier message marque la fin de notre test 
de présentation" 

Al=VARPTR(CO(DE)):A! VARPTR(M2$) 

CO(0)=250:C0(2)-320:CO(8)-45:CO(10)-65 

CLS:PRINT "Mais vous pouvez ”; 

PRINT ‘en rentrer un vous-même... 

INPUT M3$:A!-VARPTR(CO(DE)) 

A! VARPTR(M3$) 

PRINT:PRINT M3$ 

Fin: 

GOTO Fin 
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Apple J{+, fe 


Gérer des masques 40 ou 80 colonnes. 
Ces écrans, définis lors de la program- 
mation, s'affichent par “] A”. 


Saisir toutes les variables d’un écran en 
ure seule commande "Jl" en contrôlant 
ype et la longueur. 


Mais aussi, ne saisir que l'une des 
variables affectées à un écran, les 
afficher, les effacer, etc. 


Tous les fichiess source sOnt sur la disquette (exemple de démonstration dans Pom's 13) 


Disquette et documentation : 
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Gestion 


comptes bancaires 


fin d'éviter les 

longues séances de 

pointages, ratturages, 

surcharges à Ja 
réception des extraits de compte 
bancaire pour essayer de trouver 
un rappoit entre le compte tenu 
chez soi et celui tenu par le 
banquier, voici un programme 
(presque) tout Basic qui peut 
rendre quelque service. 


Un mac 128 ou 512 Ko et la 
version décimale du Basic 
Microsoft version 2.00 sont 
nécessaires, le lecteur externe 
étant facultatif. 


Les principes 


Ce programme peut gérer 
plusieurs groupes compte 
banque/caite de crédit. Dans les 
notes qui suivent, nous ne 
considérerons qu'un groupe. 


Il est possible d'enregistrer les 
opérations suivantes : 


* Dépenses par chèque ou 
prélèvement, 

Recettes sur le compte banque, 
Dépenses par carte de crédit, 
Virements carte de crédit, 
Pointage. 


Chaque mois, le compte bancaire 
est débité des dépenses par carte 
bleue présentées par les 
bénéficiaires avant le 25 du mois 
précédent. Cette opération 
diminue la dette carte de crédit et 
diminue l'avoir du compte : c'est 
cette opération que nous 
nommons ici ‘virement carte de 
crédit. 


Le pointage consiste à annoter les 
opérations enregistrées à la 
banque er chez soi. Ce pointage 
permet au programme lors de 


de 


l'édition des dernières opérations 
du compte de calculer le 
rapprochement, c'est à dire les 
soldes qui, théoriquement, 
apparaissent sur l'extrait de 
compte, tant sous la rubrique 
compte principal que sous carte 
de crédit. 


Accessoirement, le programme 
calcule une ventilation des 
dépenses par type : Maison, 
loisirs, vêtements, vacances, 
transport... Ces types de 
dépenses sont éditables : à chaque 
groupe de comptes est attachée 
une ventilation que vous définirez 
au moment de la création. Vous 
ne pourrez plus revenir dessus 
après validation. 


Ce programme, conçu pour un 
besoin particulier, ne gère pas les 
prélèvements automatiques, ne 
permet pas l'établissement de 
budget ou autre ; sa structure ne 
devrait toutefois pas poser de 
problème pour une person- 
nalisation éventuelle. 


Mode d'emploi 


Première opération, ini- 
tialisation d'un groupe compte/ 
carte : c'est l'option NOUVEAU 
du menu FICHIER. 

La date demandée devra être 
postérieure à 1984, le nom du 
fichier est quelconque, peut être 
sous la forme BNCI 007665. Le 
solde banque est positif ou 
négatif, c'est selon ! La dette 
carte bleue est par convention 
forcément positive. Ces sommes 
devront rester dans les limites 
— raisonnables — de la double 
précision. Les noms des dix 
rubriques de ventilation des 
dépenses seront choisies de façon 
définitive à ce moment. Il est 





J-L Bazanegue 
C. Piard 


LA 
El 


préférable de mettre en numéro 1 
la rubrique la plus fréquente : elle 
vous est proposée par défaut lors 
des saisies. Toutes les zones étant 
complétées, la validation par 
‘OK vous est proposée. 

Le fichier est alors créé en 
quelques instants sur le disque 
avec le type ‘'COMP' et en 
enregistrement 1 la ‘reprise de 
solde. 

Par la suite, pour travailler sur le 
fichier, il faudra choisir OUVRIR 
dans le menu FICHIER : seuls 
les types 'COMP" s'afficheront. 


Saisie est le premier item du 
menu OPTION. Pour ne pas s'y 
perdre, la dernière opération est 
rappelée en haut de l'écran (avec 
la notation des comptables : Débit 
correspond à une recette, Crédit à 
une dépense). Les soldes 
n'apparaissent pas en mode 
saisie, le bouton pointage reste 
invalid=. Pour enregistrer 
effectivement votre opération, 
vous aurez au minimum indiqué 
la date, le premier libellé et le 
montant. La date sera sous la 
forme de six ou huit caractères 
avec un séparateur quelconque : 
130985, 13/09/85, 13-09-85 sont 
des formes acceptées. 


Consultation, deuxième item 
d'OPTION rend actifs les 
boutons au bas de l'écran. 


Pointage, accessible depuis 
consultation, vous propose exclu- 
sivement les opérations non 
pointées ; celles-ci sont repérées 
dans un fichier spécial. Avant 
validation, vous pouvez modifier 
les libellés et le numéro 
d'opération. 


Imprimer est accessible dans 
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le menu FICHIER. Par défaut 
l'impression se fait entre la plus 
ancienne opération non enre- 
gistrée à la banque et la dernière 
ligne saisie. Au bas de l'état sont 
indiqués les soldes théoriques à la 
banque puis la ventilation des 
lignes de dépenses imprimées. Il 


Programme 
Comptes 


DEFINT A-Z 

DIM C1(7),1V(14),EF$(14),R(14,3), TAB 
L(100), VENT#(10):US="#######A#A##" 

DATA &h4E56,0,&h42A7,&h3F2E,&h8, 
&hA9B9,&h2057,8&h2E90,&hA851,&h4 
ESE,&h4E75 

DATA 1,Fichiers, 1, Nouveau, 1 ,Ouvrir,0, 
Fermer,0,Imprimer,i, Quitter 

‘Sup fenêtres 

DATA 0,Options,2,Saisie,1,Consultatio 
n,1,pointage 

DATA &h42A7,8&hA924,8&h2E1F,&h6706 
,&h2F07,&hA916,8&h60F2,&h4E75 

‘Sup Menus 

DATA &h4E56,&h0000,8&h3F2E,&h0008 
,&hA936,8&hA937,&h4E5E,&h4E75 

‘coordonnées 

Coo: 

DATA 8,8,112,288,120,8,272,288 

DATA Date,Nom de fichier, Montant B 
anque,D0 Carte bleue 

Coo2: 

DATA 72,344,280,488,168,8,208,328 

DATA 216,144,232,328,240, 144,256,32 
8 

CoosS: 

DATA 72,73,146,88,224,73,328,88,72, 
97,328,112,72,121,328,136,72,145,17 
6,160 

FOR i=0TO 10:RE AD C2(I):NEXT 

FOR i=0 TO 5:READ N,CS$:MENU 4 


,/LN,C$:NEXT 

FOR 1-0 TO 3:RE AD N,C$:MENU 5, 
LN,C$:NEXT 

GOSUB S1i:A! 

GOSUB S1:FOR 1-0 TO 4:A! l'NEX 
T 


ON MENU GOSUB MeO:MENU ON 

Bi: 

GOTO Bi 

Me0: 

IF MENU(0)=5 THEN Met ELSE O 
N MENU(1) GOSUB Me01,Me02,M 
603,M804 MeOS:RE TURN 

Meoli: 

WINDOW 1,,(104,24)-(400,336),-3:TE 
XTFONT O:TEXTSIZE 12:TEXTM 
ODE 1:FOR I=0 TO 3:C1(t)}-&HAAS 
S:NEXT:PENPAT VARPTR(CI(0)) 

RESTORE Coo:GOSUB S1:FOR i=-0 
TO 4 STEP 4:FRAMERECT VA 
RPTR(C1(I)):NEXT 

N=0:FOR 1-32 TO 104 STEP 24:N- 
N+1:EDIT FIELD N,°°,(176,1-15)-(28 
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est à remarquer que le libellé 2 ne 
figure pas sur l'état. 


Les limita#ons de ce programme 

sont les suivantes : 

+ 1000 opérations par an c'est à 
dire environ 100 Ko 
(modifiable ligne Ncomptes), 


0,1):R(N,0)=176:R(N,1)=1-15:R(N,2)-28 
O'R(N,3)=1I 

READ C$:MOVETO 16,l:PRINT C$;: 
GETPEN VARPTR(C1(0)):LINE(C1( 
1),)-(168,1):NEXT 

FOR 1-32 TO 176 STEP 144:FOR 
J=-153 TO 265 STEP 24:N-N+1:ED 
IT FIELD N,°",(1,J)-(1+104,J+15):R(N 
,0)=ER(N,1)=J'R(N,2)=1+1 O4:R(N,3)-J+ 
15 

MOVETO:i-22,J+12:PRINT USING"# 
#";,N-4:NEXT:NEXT 

MOVETO 16,136:PRINT “Noms der 
ubrique pour ventilation":MOVETO 1 
6,144:LINETO 280,144 

BUTTON 1,0,°OK",(64,280)-(128,304),1 
‘BUTTON 2,1," Annuler”, (168,280)-(23 
2,304),1:EDIT FIELD 1:EF=1 

FOR i=1 TO 14:TV(I)}=0:NEXT:ON D 
IALOG GOSUB Di:DIALOG ON 

RETURN 

Meo02: 

F$=FILES$(1,;  COMP").IF f$="" THEN 
MENU:RETURN 

OPEN'"R°,1,F$,112:F$-LEFTS$(F$,LEN( 
F$)-2)+".P*":OPEN"R",2,F$,2:F$=LEFT 
$(F$,LEN(F$)-2)+".V":OPEN'"R",3,F$, 
25 

Me022: 

FIELD 1,6 AS zDA$,11 AS zNum$,32 
AS zLib1$,32 AS zLib2$,8 AS zMo 
n$,8 AS zSol$,8 AS zCB$,2 AS zC 
ode$,2 AS zPoin$,2 AS zVent$ 

FIELD 2,2 AS 2Nume$ÿ 

FIELD 3,25 AS zN$ 

GET 2,1:Num=CVI(z2Numef) 

WINDOW 1,,(8,24)-(504,336),3:TEXT 
FONT O:TEXTSIZE 12:TEXTMOD 
E 1 

LINE (8,8)-(488,64),,B:FOR i=0 TO 3: 
C1()=-&HAASS:NEXT:PENPAT VAR 
PTR(C1(0));:MOVETO 16,32:LINETO 
480,32:RESTORE Coo2:FOR i-0 
TO 7:READ C\(l):NEXT:FRAMER 
ECT VARPTR(C1(0));:FRAMERECT 
VARPTR(C1(4)) 

FOR 1-0 TO 7:READ c1(l):NEXT:F 
RAMERECT VARPTR(C1(0)):FRA 
MERECT VARPTR(C1i(4)) 

MOVETO 353,87:PRINT'Ventilation": 
MOVETO 352,96:LINETO 480,96:F 
OR I=0TO 9:BUTTON Ïi+1,1,"°,(353 
,109+16*1)-(367,121+16°1),3:GET 3,1+ 
1:MOVETO 376,120+l”"16:PRINT z 
N$:EF$(1+1)=ZN$:NEXT:BUTTON 1, 
2 


GOSUB Aff:PENMODE 11:C1(0)-144 
:C1(1)-240:C1 (2)=162:C1(3)-304:C1 (4) 
=216:C1(5)-8:C1(6)-258:Ct(7)-120:P 


+ 100 opérations non | sb 
pointées (modifiable É | 
ligne Npoint), . 

EN 

+ 900 millions de Re 

francs, pour rêver. 


AINTRECT VARPTR(c1(0)):PAINT 
RECT VARPTR(ci(4)) 

BUTTON 11,0,"",(309,145)-(323,160),3: 
n=11:FOR i=133 TO 309 STEP 17 
6:FOR j=-172 TO i88 STEP 16:n=n 
+1:BUTTON n,1,"°,(1,J)-(1+14,J+14),3 
:INEXT:NEXT:BUTTON 13,2 

GET 1,Num+#:GOSUB RAPPEL 

GOSUB EField:BUTTON 16,0,"Premie 
r',(8,264)-(112,280): BUTTON 17,0,°1 
0 en arrière",(120,264)-(224,280):BU 
TTON 18,0, Précédent”, (232,264)-(33 
6,280) 

BUTTON 19,0,"Dernier",(8,288)-(11 2,30 
4):BUTTON 20,0,"10 en avant”,(120 
,288)-(224,304):BUTTON 21,0,"Suiva 
nt",(232,288)-(336,304):BUTTON 22, 
0," Valider", (344,288)-(488,304) 

DM=1:MENU:MENU 4,0,t:MENU 4,1, 
0:MENU 4,2,0:FOR i-3 TO 5S:MEN 
U 4, 1: NEXT:MENU 5,0,1: MENU 5 
,3,0 

EFS=1:EF=11:RESTORE CooS:FOR | 
1 TO S:READ R(1,0),R(1,1),R(1,2),R 
(1,8): NEXT:FOR i=1 TO 3:TV(i)=0:N 
EXT:LSET zVent$-MKI$(1):LSET 
zPoin$-MKI$(0):LSET zCode$-MKl 
$(2):LSET zLib2$="":LSET z2Num$=" 
":ON DIALOG GOSUB DSaisie:DI 
ALOG ON:RETURN 


Meo03: 

GOSUB Me03b 

CLOSE:RETURN 

Me03b: 

WINDOW CLOSE 1:GOSUB MMenu 
:GOSUB FO:RETURN 


MMenu: 

MENU 4,1,1:MENU 4,2,1:MENU 4,3, 
O:MENU 4,4,0:MENU 4,5,1:MENU 
5,0,0:MENU 5,1,2:MENU 5,2,1:ME 
NU 5,3,0:RE TURN 

FQ: 

IF DM=3 THEN GOSUB MJPoint 

RETURN 

Me04: 

DIALOG OFF:GET 2,1:NDL=CVI(ZN 
ume$) +1 :GET 2,2:NNP=CVI(ZNumef) 
:GET 2,NNP+2:NDL1=-CVI(ZNumef): 
GET 2,3:NPL=-CVI(ZNume$):NPL1=N 
PL 

IF NNP=0 THEN NPL:NDL-10 

IF NPL<1 THEN NPL=1 

GOSUB Me03b:WINDOW 1,,(172,127 
)}-(348,215),-3:TEXTFONT 0:MOVE 
TO 16,24:PRINT'Première ligne”:M 
OVETO 16,48:PRINT"Dernière ligne 

EDIT FIELD 1,STR$(NPL),(120,12)-( 
160,27),1,3 
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EDIT FIELD 2,STRS$(NDE-1),(120,36) 
-(160,51),1,3 
EF=1:BUTTON 1,1,;"OK",(16,64)-(82,79 


LES } BUTTON 2,1,"Annuler",(94,64)-(160 
,79):ON DIALOG GOSUB Dimp:D 


2 


IALOG ON 

Dimp: 

N=DIALOG(O):1F N=1 THEN Bimp E 
LSE IF N-2 THEN Simp ELSE ! 
F N=6 OR N=-7 THEN RTImp ELS 
E RETURN 

Bimp: 

IF DIALOG(1)=2 THEN WINDOW 
CLOSE 1:GOSUB Me03:CLOSE:R 
ETURN 

XxNPL=VAL(EDIT$(1)):xNDL=V AL(EDI 
T$(2)) 

IF xXNPL>xNDL OR xNPL<0 OR xNDL 
>NDL-1 THEN BEEP:EDIT FIELD 
1:RETURN 

NPL=xNPL+1:NDL=xNDL+1:1F NPLNPL 
1+1 OR NDL<NDL1+1 THEN drap=0 
ELSE drap=-1 

GOTO impres 

Simp: 

IF DIALOG(2)=EF THEN RETURN 
ELSE EF-=DIALOG(2):GOTO Dimp 
S 

RTImp: 

IF EF=2 THEN EF=1 ELSE af-2 

DimpsS: 

EDIT FIELD EF:RETURN 

Meo5: 

GOSUB FQO:CLOSE:SYSTEM 

Mel: 

ON MENU(1) GOSUB Me11,Me12,M 
813:RETURN 

Mel1: 

LINE(9,9)-(487,30),30,BF:LINE(9,34)-( 
487,63),30,BF 

GET 2,1 :Num=-CVi(zNumef):GET 1,N 
um+1:GOSUB rappel 

PENMODE 8:C1(0)-144:C1(1)=240:C1( 
2)=162:C1(3)=304:C1(4)-216:C1(5)=8: 
C1(6)=258:C1(7)-120:PENMODE 11: 
PAINTRECT VARPTR(ci(0)):PAIN 
TRECT VARPTR(ci(4)) 

LINE(145,217)-(326,230),30,BF:LINE (1 
45,241)-(326,254),30,BF 

RESTORE coo2:FOR i=0 TO 7:REA 
D c{(l:NEXT:FOR 1-0 TO 7:REA 
D c1(l):NEXT:PENMODE 8:FRAM 
ERECT VARPTR(C1(0)):FRAMERE 
CT VARPTR(C1(4)):PENMODE 11 

FOR i=15 TO 22:BUTTON LO:NEXT 
:FOR 1-1 TO 10:BUTTON I I:NEX 
T:BUTTON 1,2:BUTTON 11,0:FOR 
1=:12TO 1S:BUTTON I,1:NEXT:BU 
TTON :3,2 

DM=1:MENU:MENU 5,1,2:MENU 5,2, 
1:MENU 5,3,0:GOSUB Efield 

EFS=1:EF=f1:FOR 1-1 TO 3:TV(I)=0: 
NEXT:LSET zVent$=-MKI$(1):LSET 
zPoin$=MKI$(0):LSET zCode$-MK 
5$(2):LSET zLib2$="":LSET zNum$= 
"ON DIALOG GOSUB DSaisie:D 
IALOG ON:RETURN 

Me12: 

DIALOG OFF:IF DM=2 THEN RETU 
RN ELSE IF DM=3 GOTO Me123 


Mel 2S: 

DM=2:C1(0)=9:C1(1)=9:C1(2)=30:C1 (3)=4 
87:C1 (4)-34:C1 (5)=-9:C1(6)-63:C1 (7)=4 
87:PENMODE 11:PAINTRECT VA 
RPTR(C1(0)):PAINTRECT VARPT 
R(C1(4)) 

FOR I=1 TO :5:BUTTON |I,1:NEXT: 
FOR 1=1 TO S:EDIT FIELD CLOS 
E I:NEXT 

LINE(223,72)-(329,89),,B:LINE(71,96)- 
(329,113),,B:LINE(71,120)-(329,137),, 
B:LINE(71,144)-(177,161),,B:LINE(7 
1,72)-(147,89),,B 

RESTORE Coo2:FOR i=0 TO 7:RE 
AD C1(I):NEXT:FOR i-0 TO 7:RE 
AD C{(I):NEXT:PENMODE 14:FR 
AMERECT VARPTR(C1(0)):FRAM 
ERECT VARPTR(C1(4)) 

MOVETO 16,228:PRINT"Solde Banqu 
6”:MOVETO 16,252:PRINT'DG Cart 
e bleue": MOVETO 242,159:PRINT" 
Pointage 

BUTTON 22,0:FOR 1=16 TO 18:BUT 
TON i,t:NEXT:MENU 5,1,1:MENU 5 
,2,2:MENU 5,3,1:GET 2,1:Num=CVli 
(ZNume$)+1:NumF=Num:GET 2,2:No 
mbre=CVi(zNume$):GOSUB AffCons 
‘ON DIALOG GOSUB consult:DI 
ALOG ON:RETURN 

Me123: 

GOSUB MJPoint:GOSUB vide:GOT 
O Me12S 

MJPoint: 

DM=2:FOR 1=1 TO Nombre:LSET ZN 
ume$=MKI$(TABL(1)-1):PUT 2,1:2:NE 
XT 














LSET zNume$-MKI$(Nombre):PUT 2, 
2:RETURN 

Me13: 

iF Nombre-0 THEN MENU 5,3,0:RE 
TURN 

DM=3:DIALOG OFF 

GOSUB Vide 

FOR !=16 TO 21:BUTTON |,1:NEXT 
:FOR i=16 TO i7:BUTTON |,0:BU 

TTON I+3,0:NEXT 

MENU:FOR !=0 TO 2:MENU 5,1+1,l: 
NEXT 

FOR !=1 TO Nombre:GET 2,l+2:TAB 
L(l)=CVI(ZNume$)+1:NEXT:11=1 

GOSUB AïfPoint 

BUTTON 18,0:1F nombre=f THEN B 
UTTON 21,0 

ON DIALOG GOSUB Pointage:DIA 
LOG ON:RETURN 

Pointage: 

N=DIALOG(O):IF N=1 THEN PoinBou 
ton ELSE IF N=2 THEN PoinSovur 
ELSE PointAT 

RETURN 

PoinBouton: 

N=DIALOG{(i):IF N=11 THEN BPoint 
ELSE IF N=18 THEN prec ELSE 

IF N<21 THEN RETURN 

IF N=21 THEN Suiv ELSE Valide 

BPoint: 

IF BUTTON(11)=1 THEN BUTTON 
11,2:BUTTON 22,1 ELSE BUTTO 
N 11,1: BUTTON 22,0 

RETURN 


prec: 

BUTTON 21,1:11=I1-1:1F =1 THEN 
BUTTON 18,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

Suiv: 

BUTTON 18,1:11=11+41:1F (=Nombre T 
HEN BUTTON 21,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

Valide: 

LSET zLibi$-EDIT$(2):LSET zLib2$ 
=EDIT$(3):LSET zNum$-EDIT$(1): 
LSET zPoin$=MKi$(-1):PUT 1,TAB 
L(I) 

Nombre=Nombre-1 

IF nombre=-0 THEN GOSUB vide:FO 
R !=1 TO 22:BUTTON I,0:NEXT:E 
DIT FIELD 3,"°,(72,121)-(328,136):E 
OIT FIELD 2,°°,(72,97)-(328,112):E 
DIT FIELD 1,"*,(224,73)-(328,88):R 
ETURN 

FOR I=II TO nombre:SWAP TABL(I), 
TABL(I+1):NEXT 

IF l=Nombre+1 THEN BUTTON 21,0 
H=1l-1 

IF Hz THEN BUTTON 18,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

PoinSour: 

IF DIALOG(2)-EF THEN RETURN 
ELSE NEF-DIALOG{2) 

GOTO DPoint 

PointRT: 

IF EF=3 THEN NEF=1 ELSE NEF-=E 
F+1 

DPoint: 

EF$(EF+10)-EDIT$(EF) 

IF EF>1 THEN Point2 

Point1b: 

IF WIDTH(EF$(11))>96 THEN EF$(11 
)=LEFT$(EF$(11}LEN(EF$(11))-1):G 
OTO Pointib ELSE EDIT FIELD 
1,EF$(11),(224,73)-(328,88):EF-NEF:E 
DIT FIELD EF:RETURN 

Point2: 

IF WIDTH(EFS$S(EF+10))>240 THEN E 
F$(EF+10)=LEFTS$(EFS$(EF +10). LEN( 
EF$(EF+10))-1):GOTO Point? ELSE 
EDIT FIELD EF,EF$(EF+10),(72,97 
+(24"{EF-2)})-(828,112+(24"(EF-2))):EF 
=NEF:EDIT FIELD EF:RETURN 

Vide: 

LINE(72,145)-(176,160),30,BF:LINE(72 
,73)-(146,88),30,BF 

LINE(145,217)-(326,230),30,BF:LINE(1 
45,241)-(326,254),30,BF 

FOR 1-1 TO 15:BUTTON |I,1:NEXT 

RETURN 

AffPoint: 

GET 1,TABL(I):EF=1 

EDIT FIELD 3,zLib2$,(72,121)-(328,1 
36):ef$(13)=zLib2$ 

EDIT FIELD 2,zLib1$,(72,97)-(328,11 
2):e1$(12)=2zLib1$ 

EDIT FIELD 1,zNum$,(224,73)-(328,8 
8):ef$(11)=zNum$ 

MOVETO 80,85:PRINT LEFT$(ZDA$ 
,2)+"/+MID$(zZDA$,3,2)+"/"+RIGHTS$( 
zDA$,2) 
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Pom's n° 20 





MOVETO 80,157:PRINT USING U$: 
CVD(zMon$) 

MOVETO 220,229:PRINT USING U 
$:CVD(zSol$):MOVETO 220,253:PR 
INT USING U$;CVD(zCB$) 

codse=CVi(zCode$):BUTFON code+11, 
2:1F CVi(zPoin$) THEN BUTTON 
11,2 

IF CVI(zZVent$) THEN BUTTON CVI 
(ZVent$),2 

BUTTON 22,0 


RETURN 


Consult: 

N=DIALOG(0):N=DIALOG(1):IF N<16 
THEN RETURN 

ON (N-15) GOTO C1,C10M,CP,CD,Ct 
OP,CS 

C1: 

NumF=t ':GOTO SConsult 

C10M: 

IF (NumF-10)<1 THEN NumF=1 ELS 
E NumF=NumF-10 

GOTO SConsult 

CP: 

NumF =NumF-i:GOTO SConsult 

CD: 

NumF=Num:GOTO SConsult 

C10P: 

IF (NumF+10)>Num THEN NumF=Num 
ELSE NumF=NumF +10 

GOTO SConsuit 

CS: 

NumF =NumF +1 :GOTO SConsult 


SConsult: 

FOR 1=1 TO 15:BUTTON I, 1:NEXT 

LINE(225,75)-(327,87),30,BF:LINE(73, 
98)-(327,111),30,BF:LINE(73,122)-(32 
7,135),30,BF:LINE(73,146)-(175,159), 
30,BF:LINE(73,74)-(145,87),30,BF 

LINE(145,217)-(326,230),30,BF:LINE(1 
45,241)-(326,254),30,BF 

IF num=1 THEN FOR 1=16 TO 21:B 
UTTON 1,0:NEXT:GOTO SSConsul 
t 

FOR 1=16 TO 21:BUTTON |,1:NEXT 

IF numF=1 THEN FOR i=16 TO 18: 
BUTTON i,0:NEXT 

IF numF = num THEN FOR ;i = 19 
TO 21:BUTTON I,O:NEXT 

IF (numF-10)<1 THEN BUTTON 17,0 

IF(numF+10)>num THEN BUTTON 20 
,0 

SSConsuil: 

GOSUB AffCons:RE TURN 

EField: 

EDIT FIELD 2,°°,(224,73)-(328,88):E 
DIT FIELD 3,"“,(72,97)-(328,112):E 
DIT FIELD 4,“°,(72,121)-(328,136):E 
DIT FIELD 5,°°,(72,145)-(176,160) 

EDIT FIELD 1,LEFT$(ZDA$,2)+"/°+M 
ID$(Z0A$,3,2)+"/"+RIGHTS$(ZDAS,2),( 
72,73)-(146,88):RETURN 


VentOff: 
C1(0)-112:C1(1)-376:C1(2)-274:C1(3)-4 
87:PAINTRECT VARPTR(c1(0)):F 


OR i=1 TO 10:BUTTON I,0O:NEXT: 
LSET zVent$=MKI$(0):RE TURN 


Aff: 

MOVETO 9,87:PRINT"Date"MOVET 
© 168,87:PRINT'Numéro":MOVETO 
9,111:PRINT"Lib. 1": MOVETO 9,1 
35:PRINT"Lib. 2":MOVETO 9,159:P 
RINT'Montant":MOVETO 16,228:PR 
INT'"Solde Banque”:MOVETO 16,25 
2:PRINT"Dù Caïte bleue 

MOVETO 16,183:PRINT"Recette Ban 
que":MOVETO 16,199:PRINT"Dépe 
nse Banque*:MOVETO 165,183:PRI 
NT'Dépense Carte Bleue":MOVETO 
165,199:PRINT" Virement Carte Ble 
u8"-MOVETO 242,159:PRINT"Point 
age 

RETURN 


Rappel: 

N=0:FOR !-1 TO LEN(F$):IF MIDS$( 
F$,1,1)=":° THEN N=1 

NEXT:IF n THEN F$=RIGHTS$(F$,LE 
N(F$)-N) 

MOVETO 16,24:PRINT ‘Fichier “* L 
EFTS$(F$,LEN(F$)-2) “““ - Rappel de 
l'enregistrement précédent :" Num 

MOVETO 16,44:PRINT LEFT$(ZDA$ 
,2)+"/"+MIDS$(ZDA$,3,2)+"/°+RIGHTS$( 
zDA$,2) 

MOVETO 93,44:PRINT “N° " zNum$: 
MOVETO 214,44:PRINT zLib1$ 

N=CVI(ZCode$):V1#-0:V2#-0:V3#-0:0 
N N-1 GOTO SN2,SN3,SN4 

Mi#=CVD(zMon$):GOTO SNO 

SN2: 

V2#-CVD(zMon$):GOTO SNO 

SN3: 

V3#=-CVD(zMon$):GOTO SNO 

SN4: 

V2#=-CVD(zMon$):V3#=-CVD(zMon$) 

SNO: 

MOVETO 16,59:PRINT USING“Débit 
Ba :######H#H#### Crédit Bq :## 
HAHMHHHAAHH CB :HAAAMHAAAEHNTNV 
1#,V2#,V3# 

RE TURN 


Di: 

N=DIALOG(0):IF N=1 THEN Bouton 
ELSE IF N=2 THEN Dsouris ELS 
E IF N=6 OR N=7 THEN TabRetur 
n ELSE RETURN 

Bouton: 

IF DIALOG(1)-1 THEN BoutonOK 

MENU:WINDOW CLOSE 1:RETUR 
N 

BoutonOK: 

MENU:DIALOG OFF:AI=VARPTR(C 
2(0)):AI 4:OPEN"R",1,EF$(2).25:NA 
ME EF$(2) AS EF$(2)+".V” 

FIELD 1,25 AS zN$ 

FOR 1=1 TO 10:LSET zN$=EF$(I+4): 
PUT 1,1: NEXT 

CLOSE 

OPEN'R",1,EF$(2),112:NAME EF$(2) 
AS EF$(2)+".D",°COMP* 

FIELD 1,6 AS zDA$,11 AS zNum$,3 


2 AS zLib1$,32 AS zLib2$,8 AS z 
Mon$,8 AS zSol$,8 AS zCB$,2 AS 
z2Codef$,2 AS zPoin$,2 AS zVent$ ([—. 

Ncompies: 2 [ | 

FOR 1-1 TO 1001:PUT #11: NEXT = 

LSET zZDA$=JJ$+MM$+AAS$S:LSET ZN & N 
um$=""LSET zLibi$="Reprise de sol 
des":LSET zLib2$="" 

V#=VAL(ef$(3)):1F v#<0 THEN V#-A 
BS(v#):n=2 ELSE n=1 

LSET zMon$-:MKD$(V#):LSET zSol$ 
=MKD$(VAL(EF$(3))) 

LSET zCB$-MKD$(VAL(EF$(4))):LSE 
T zCode$-MKIS$(N):LSET zPoin$-M 
KI$(-1):LSET 2Vent$-MKI$(0) 

PUT 1,1 

CLOSE 

OPEN'R",1,EF$(2),2:NAME ef$(2) AS 
ef$(2)+".P" 

FIELD 1,2 AS zP$:LSET zP$=MKI$ 
(0):PUT 1,1 

Npoint: 

FOR i=2 TO 102:PUT 1,I:NEXT:CL 
OSE 

WINDOW CLOSE 1:INITCURSOR: 
DIALOG ON:RETURN 


Dsouris: 

IF DIALOG(2)-EF THEN RETURN 
ELSE NEF-DIALOG(2):GOTO Trai 
t 

TabRetum: 

IF EF=14 THEN NEF-1 ELSE NEF- 
EF+i 

Trait: 

IF EF>4 THEN Ventil ELSE ON EF- 
1 GOTO Nom,MB,CB 

EF$(1)=-EDIT$(1):1F LEN(EF$(1)i=0 T 
HEN TV(1)-0:GOTO Dsuivant ELS 
E GOSUB Vdate 

IF DE THEN TV(1)-0:GOTO Erreur 
ELSE TV(1)=-1:GOTO Dsuivant 

Non: 

EF$(2)=-EDIT$(2):IF LEN(EF$(2)}-0 T 
HEN TV(2)-0:GOTO Dsuivant ELS 
E GOSUB VLongP 

TV(2)}--1:GOTO Dsuivant 

MB: 

EF$(3)-EDIT$(3):IF LEN(EF$(3))=0 T 
HEN TV(3)=-0:GOTO Dsuivant ELS 
E GOSUB VVaIN 

tF DE THEN TV(3)=0:GOTO Erreur 
ELSE TV(3)=-1:GOTO Dsuivant 

CB: 

EF$(4)-EDIT$(4):1F LEN(EF$(4)}=0 T 
HEN TV(4)=-0:GOTO Dsuivant ELS 
E GOSUB VValP 

IF DE THEN TV(4)-0:GOTO Erreur 
ELSE TV(4)=-1:GOTO Dsuivant 

Ventil: 

EF$(EF)-EDITS$(EF):IF LEN(EF$(EF))= 
O0 THEN TV(EF)=0:GOTO Dsuivant 
ELSE GOSUB VLongP 

TV(EF)=-1:GOTO Dsuivant 


Dsuivant: 

EDIT FIELD EF,EF$(EF),(R(EF,0).R(E 
F,1)-(R(EF ,2).R(EF,3)):EF -NEF :EDIT 
FIELD EF 

DE=-1:FOR 1=1 TO 14:1F TV(I)=-0 TH 
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«12 


LS 


EN DE-0 

NEXT:IF DE THEN 1!F BUTTON(1)- 
0 THEN BUTTON 1,1:RETURN 

IF DE=0 THENIF BUTTON(1)=1T 
HEN BUTTON 1,0 

RETURN 


Erreur: 

BEEP:BEEP:EDIT FIELD EF,EF$(E 
F).(R(EF.0).R(EF,1))-(R(EF,2).R(EF.3)): 
RETURN 


Me05: 
MENU RESET:END 


Vdate: 

DE=0:IF LEN(EF$(EF))-6 THEN N=-1 
ELSE IF LEN(EFS$(EF))=8 THEN 
N=0 ELSE VdateEr 

JJ$=LEFT$(EFS$(EF).2)1F VAL(Jÿ$)-3 
1 THEN VdateEr 

IF N THEN MM$=MIDS(EF$(EF),3,2) 
ELSE MM$=MID$(EF$(EF),4,2) 

IF VAL(MM$)>12 THEN VdateEr 

AAS$=RIGHT$(EFS$(EF),2):1F VAL(AAS$) 
<85 THEN VdateEr 

EF$(EF)-J9$+"/"+MMS$+""+AAS$:RETUR 
N 


VdateEr: 
DE=-1:RE TURN 


VLongP: 

L=WIDTH(EF$(EF)):iF L<96 THEN R 
ETURN ELSE EF$(EF)=RIGHT$(E 
F$(EF),LEN(EF$(EF))-1):GOTO VLon 
gP 


VVaIN: 

DN=-1:GOTO VVal 

VValP: 

DN-0 

VVal: 

N=0:L-LEN(EF$(EF)):FOR 1=1 TO L:C 
$=MID$(EF$(EF),I,1):1F C$="?" OR 
C$="," OR C$=";" OR C$="." THEN 
MID$(EF $(EF),1,1)=".":N21 

NEXT:IF N THENIF L>(N+2) THEN 
EF$(EF)=LEFTS$(EFS$(EF).N+2) 

N#=VAL(EFS$(EF):N#=INT(N#"100+.5)/1 
00:EF$(EF)=STR$(N#):fF LEFT$(EF 
$(EF),1)=° " THEN EF$(EF)=RIGHT 
$(EF$(EF).LEN(EFS$(EF))-i) 

IF N-0 OR N=L THEN EF$(EF)=EFS$( 
EF)+".00" 

L=LEN(EF$(EF)):IF (N+2)-L=1 THEN 
EFS$(EF)=EF$(EF)+"0" 

IF DN THEN IF N#>999999999.99# 
OR N#<-99999999.99# THEN DE=-1 
‘RETURN ELSE DE-=0:RETURN 

IF N#>999999999.99# OR N#<0 THE 
N DE=-1:RETURN ELSE DE=0:RE 
TURN 


S1: 
FOR 1-0 TO 7:READ C1(I):NEXT:A! 
=VARPTR(C1(0)):RE TURN 


DSaisie: 
N=DIALOG(O):IF N-1 THEN SBouton 
ELSE IF N=2 THEN SDsouris EL 


SE IF N=6 OR N=7 THEN STabRe 
turn ELSE RETURN 

SBouton: 

N=DIALOG(1):IF N<11 THEN Ventiis 
ELSE IF N=22 THEN ValidS 

FOR i=12 TO 15:BUTTON |,1:NEXT 
‘BUTTON N,2:NN=BUTTON(1) 

IF NN=0 THEN IF N=13 OR N=14T 
HEN FOR i=0 TO 9:BUTTON |I+1, 
1:MOVETO 376,120+]*16:PRINT E 
F$(1+1):NEXT:BUTTON 1,2:GOTO 
SBoutonS 

IF N=12 OR N=15 THEN GOSUB V 
entOff 

SBoutonS: 

Code-N-11:GOTO SDSouris2 


VentilS: 

FOR i=1 TO 10:BUTTON |,1:NEXT: 
BUTTON N,2:Ventli-=N:GOTO SDSa 
uris2 


ValidS: 

IF BUTTON(13)=2 THEN code-2 

IF BUTTON(1)=2 THEN LSET zVen 
t$=MK1$ (1) 

IF BUTTON(1)=1 THEN LSET zVen 
t$-MKI$(Ventil) ELSE IF BUTTON 

(1)=0 THEN LSET zVent$-MKI$(0) 

CBleue#-CVD(2CB$):Solde#-CVD(zSol 
$):LSET zCode$-MKI$(code):LSET 

zMon$-MKD$(VAL(montant$)):ON c 
ode-1 GOTO code2,code3,code4 

LSET zSol$=-MKD$(VAL(Montant$}+S 
olde#):GOTO Enrs 

code2: 

LSET zSol$-MKD$(Solde#-VAL(Mont 
ant$))}:GOTO Enrs 

code3: 

LSET zCB$-MKD$(CBieue#+VAL (Mon 
tant$)):GOTO Enrs 

code4: 

LSET zCB$-MKD$(CBteue#-VAL(Mon 
tant$)):LSET 2Sol$-MKD$(Solde#-V 
AL(Montant$)) 

EnrS: 

GET 2,2:NEnrNP=CVI(z2Numef) 

LSET zNume$=MKI$(Num+1):PUT 2, 
1 

LSET zNume$=MKI$(NEnrNP+1):PUT 
22) 

LSET zNume$=MKI$(Num+1):PUT 2, 
NEnrNP+3 

PUT 1,Num+2 

GET 2,1:Num=CVI(zNumef$):FOR 1-0 
TO 9:BUTTON 1+1,1 

MOVETO 376,120+l*16:PRINT ef$(l+ 
1): NEXT:BUTTON 1,2 

BUTTON 22,0:LINE(9,9)-(487,30),30, 
BF:LINE(9.34)-(487,63),30,BF 

BUTTON 12,1:BUTTON 13,2:BUTTO 
N 14,1: BUTTON 15,1 

GET 1,Num+1:GOSUB rappel 

GOSUB FField:EFS-1:EF-11:FOR 1=1 
TO 3:TV(I)=-0:NEXT:LSET zLib2$= 
"":LSET zNum$="":LSET zVent$-M 
KI$(1):LSET zPoin$-MKI$(0):LSET 
zCode$-MKI$(2):RE TURN 


SDSourls2: 


NEFS=DIALOG(2):DV=0:GOTO TraitS 

SDSouris: 

IF DIALOG(2)-EFS THEN RETURN 
ELSE NEFS=DIALOG(2):DV=-1:G 
OTO TraitS 

STabReturmn: 

IF EFS=5 THEN NEFS-1 ELSE NEF 
S=EFS+1 

TraitS: 

ON EFS-1 GOTO NumS.Lib1S,Lib2S, 
MontantS 

EF$(EF)=EDIT$(1):1F LEN(ef$(EF))=0 
THEN TV(1)=0:GOTO DsuivantS:EL 
SE GOSUB Vdate 

IF DE THEN TV(1)=-0:GOTO Erreurs 
ELSE TV(1)=-1:LSET zZDAS$=LEFT 
$(EF$(EF),2)+MID$(EF$(EF),4,2)+R1 
GHT$(EF$(EF),2):GOTO DsuivantsS 

NumsS: 

EF$(EF)-EDIT$(2) 

NumSb: 

IF LEN(EF$(EF))>11 THEN EFS$(EF)= 
LEFT$(EFS$(EF) LEN(EF$(EF))-1):GO 
TO NumSb ELSE LSET zNum$-EF 
$(EF):GOTO DsuivantsS 

Lib1S: 

EF$(EF)=-EDIT $(3):1F LEN(EF$(EF))=0 
THEN TV(2)-0:GOTO DsuivantS 

TV(2)=-1 

Lib1Sb: 

tF WIDTH(EF$(EF))>240 THEN EF$( 
EF)=LEFT$(EFS$(EF). LEN(EFS$(EF))-1) 
:GOTO Lib1Sb ELSE LSET zLib1 
$=EF$(EF):GOTO DsuivantS 

Lib2S: 

EF$(EF)-EDIT$(4) 

Lib2Sb: 

IF WIDTH(EF$(EF))>240 THEN EF$(E 
F)=LEFT$(EFS$(EF) LEN(EFS(EF))-1): 
GOTO Lib2Sb ELSE LSET zLib2$-E 
F$(EF):GOTO DsuivantS 


MontantS: 

EF$(EF)=EDIT$(5):1F LEN(EF$(EF )j=0 
THEN TV(3)-0:GOTO DsuivantsS 
ELSE GOSUB VValP 

IF DE THEN TV(3)=-0:GOTO Erreurs 
ELSE TV(3)--1:Montant$-EF$(EF): 
GOTO DsuivantS 


DsuivantsS: 

EDIT FIELD EFS,EF$(EF),(R(EFS,0), 
R(EFS,1))-(R(EFS,2).R(EFS,3)):tF DV 
THEN EFS-NEFS:EDIT FIELD EF 
S 

GOSUB VerifS:RE TURN 


Erreurs: 

BEEP:BEEP:EDIT FIELD EFS.EF$( 
EF), (R(EFS,0),R(EFS,1)i-(R(EFS,2),R( 
EFS,3)):RRETURN 


VerifS: 

DE=-1:FOR 1=1 TO 3:1F TV(I)=0 TH 
EN DE=0 

NEXT:IF DE THENIF BUTTON(22) 
=0 THEN BUTTON 22,1:RETURN 

IF DE=0 THEN IF BUTTON(22)=1 T 
HEN BUTTON 22,0 

RETURN 
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Fichiers Options 











Fichier BNCI 007665 - Rappel de l'enregistrement précédent : 6 


0.00 Crédit Bq: 


Débit Bq : 
Lib. 1 
Lib. 2 


Montant AU 


Recette Banque ST 


Dépense Banque © 


Seide Rare 


Bis Éarts Diose 


[  Promipr | [fé en arriere | [fé en arriere | arriere || Precédent | 


Numéro [6443997 | 


[Photo Shop | 


Paintage © 


Mere TTC NS) 
Virement Carte Bleue ©: 





CAS I US Mo 
0.00 CB: 


tenn © 


Loyer 
Alimentation 
Uêtements 
Loisirs 
Dacances 
Impôts’ 
Ordinateur 
Photographie 
Moto 


| 00@0000000 


CRE Conan CHENE) CE (Var à 


Impres: 

WIDTH'LPT1:",136 

Page-0:TD#=0:TC#-0:TCB#-0:SBT#=0:S 
CT#=0 

FOR i=1 TO 10:VENT#(/)=-0:NEXT 

GOSUB entete 

FOR i=NPL TO NDL 

GET :,l 

MT#-CVD(zMon$):So#-CVD(2Sol$):CB 
#-CVD(zCB$):Co-CV!(zCode$) 

Li=Li+1 

IF Li>55 THEN GOSUB totaux:LPR 
INT CHR$(12);:GOSUB entete 

GOSUB Ligne 

NEXT 

GOSUB Totaux 

IF NOT DRAP THEN LPRINT ‘Editi 
on insuffisante pour calcul! du rappr 
ochement":GOT O ici 

LPRINT'SOLDES THEORIQUES SUR 
EXTRAIT BANCAIRE : 

LPRINT TAB(30);,USING U$;SBT#+S 
o#;:LPRINT" 8n compte principal 

LPRINTTAB(30);USING U$;SCT#+C 
B#::LPRINT" en carte bleue 

ici: 

LPRINT CHR$(12) 

LPRINT "VENTILATION DES DEPENS 
ES : 

FOR i=1 TO 10:LPRINT EF${(i); TAB( 
26); USING U$;VENT#{(i): NEXT:LPR 
INT CHR$(12) 

WINDOW CLOSE 1:GOSUB Me03: 
CLOSE:RETURN 

entete: 

Page-Page+1:Li-0 

LPRINT CHR$(27)CHRS$(81) 

LPRINT'Extrait compte banque " LE 
FT$(F$.LEN(F$)-2) *, ligne "Npl* À " 
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Nd!”, page ES 

FOR i=0 TO 126:LPRINT ‘-"; 
T:LPRINT 

LPRINT "| “ SPC(18) "1" 
SPC(33) “!";: FOR i-i TO S:LPRI 
NT SPC(12)"!";: :NEXT:LPRINT" !" 

LPRINT "! DATE ! NUMERO 

! LIBELLE 1° SPC(23);°! RECETT 
E ! DEPENSE ! SOLDE 
| MOUVEMENT | SOLDE IP! 

LPRINT *! | OPERATION 
l" SPC(33)°! BANQUE ! BAN 
QUE ! BANQUE I! CARTE BL 
EUEI CARTE BLEUE! ! 

FOR i=0 TO 126:LPRINT "-"; 
T:LPRINT 

RETURN 

Totaux: 

FOR i=0 TO 126:LPRINT ‘-"; 
T:LPRINT 

LPRINT "I Totaux"::LPRINT TAB(60) 
“:LPRINT USING U$;TD#;:LPRI 
NT"I";:LPRINT USING U$;TC#;:LP 
RINT®!";:LPRINT USING U$;So#;: 
LPRINT"!" USING U$;TCB#;:LPRI 
NT'!":LPRINT USING U$;CB#;:LP 
RINT"1 1" 

FOR i=0 TO 126:LPRINT ‘-"; 
T:LPRINT 

RETURN 

Ligne: 

LPRINT"!° LEFT$(ZDA$,2)"/" MIDS$( 
zDA$,3,2)"/" RIGHT$(ZDA$,2)" ! "zN 
um$;:TAB(26);"!"zLIB1$;TAB(60);"!°; 

IF Co=1 THEN TD#-TD#+MT#:LPRI 
NT USING U$:MT#; 

LPRINT TAB(73);°!"; 

IF Co=2 OR Co-4 THEN LPRINT U 
SING U$;,MT#; 

LPRINT TAB(86) "!";:LPRINT USIN 


: NEX 


: NEX 


;:: NEX 


: NEX 


°G US: So#;:LPRINT TAB(GS) “l 

IF Co=3 THEN TCB#-TCB#+:MT#: LPR 
INT USING US$;MT#; 

IF CO=4 THEN LPRINT USING U$ 
:-MT#; 

LPRINT TAB(112) "!l';:LPRINT USI 
NG U$;CB#;:LPRINT °!°; 

IF CVI(ZPoin$) THEN LPRINT"*‘"; 

LPRINT TAB(127) “! 

IF Co=2 THEN TC#-TC#+MT# 

IF Co=4 THEN TC#=-TC#+MT#:TCB#-T 
CB#-MT# 

IF Co-2 OR Co-3 THEN VENT#(CV 
{zVent$)i=- VENT#(CVI(zZVent$)}+MT# 

IF CVI(2Poin$} THEN suite 

IF co=1 THEN SBT#-SBT#-MT# 

IF co=2 THEN SBT#-SBT#+MT# 

IF co=3 THEN SCT#-=SCT#-MT# 

IF co=4 THEN SBT#=-SBT#+MT#:SCT# 
=SCT#:MT# 

suite: 

RETURN 

AffCons: 

GET 1,NumF:MOVETO 80,85:PRINT 
LEFT$(ZDA$.2)+"/"+MID$(ZDA$,3,2) 
+%"+RIGHTS$(ZDA$,2) 

MOVETO 232,85:PRINT zNum$:MO 
VETO 80,109:PRINT zLib1$: MOVE 
TO 80,133:PRINT zLib2$:MOVETO 
80,157:PRINT USING U$;CVD(zM 
on$) 

MOVETO 220,229:PRINT USING U 
$;CVD(zSol$):MOVETO 220,253:PR 
INT USING U$;:CVD(zCB$) 

code-CVl(zCode$):BUTTON code+1t, 
2:F CVI(zPoin$) THEN BUTTON 
11,2 

IF CVI(ZVent$) THEN BUTTON CV 
l(zVent$),2 

RETURN 
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Alexandre Avrane 


AIO ProDOS ? : 


roisième volet de notre 
découverte de ProDOS 
(voir "ProDOS à 
l'essai” -Pom's 12- et 
"Pot-pourri ProDOS" -Pom's 
16-), nous allons aborder la 
programmation en assembleur 
sous ProDOS. Nous verrons les 
protocoles de co-résidence de 
plusieurs programmes et 
l'adjonction de nouvelles 
commandes à ProDOS avec deux 
applications pratiques : un 
TDUMP de visualisation du 
contenu des fichiers, et un INIT 
de formattage des disquettes 
évitant d'utiliser l'utilitaire Filer. 


Sous DOS 3.3, Apple n'avait que 


très peu documenté les 
conventions d'appel en 
assembleur les méthodes 


d'accès au File Manager n'étaient 
même pas effleurées par le 
manuel du DOS ! Résultats : les 
nombreux aventuriers qui 
s'étaient hasardés à explorer le 
système avaient chacun emprunté 
une approche différente, et le 
DOS s'est vite retrouvé truffé de 
"patches" et de modifications 
internes. Une telle situation a vite 


Pgm INIT.CODEO.S 


(Assembleur Big Mac) 
1 LST Off 
2. 
3 
5e * 
5 * PRODOS INIT * 
3 u 
ss ccserannaiemnitess ses asser eo ose 


DUORCLLELELLLLEESLEESELELLLEESLLSLELELELELLELLLE) 
11 »« Copyright (C) 1985 Alexsndre Avrane * 
ir Pc . 
13 * modifié: 27/04/85 . 
14 + Créé: 10/03/85 . 
15e L 
16 * Assembleur: Big Mac * 
17 DIDLILLLLLLANRRRRARARARRRRRRSSSSARSSSSO 


20 »* objectifs: 


21 * =russssss 
22 * Inittelisstion d'une disquetze Pro00S 
sans vtiliser le Filez 


24 * Syntaxe: 


découragé les programmeurs de 
Cupertino d'envisager le 
développement d'un DOS 3.4 car 
celui-ci, ayant nécessité un 
ré-assemblage et donc la 
modification de la plupart des 
adresses des routines, aurait 
rendu incompatible un très grand 
nombre de programmes. 


Fini le 
"bidouillage" ! 


Une philosophie différente existe 
pour ProDOS : le "Technical 
Reference Manual” décrit en 
détail les points d'entrée de 
ProDOS et du Basic.System mais 
repose sur un double enga- 
gement : celui des programmeurs 
de n'utiliser que les points 
d'entrée officiels, de ne pas 
appeler directement les routines 
internes, ni occuper les places 
libres en mémoire, celui d'Apple 
de conserver la compatibilité de 
ses points d'entrée avec les 
versions futures de ProDOS. 


Plusieurs versions de ProDOS 
ont déjà été commercialisées : 1.0 


25 * 

26 * INIT /<nom volume> [,38 <slot>! 
[,D <drive>) 

ae 

28 * Environnement: Pro00OS + Basic System 

29 * Compatibilité: ProDOS B.4, 1.0, 1.0.1 et 
suivants 

30 * Intégration: 
System 


commande externe Basic 


Orgsnisstion interne: 
===ssasssesssmsssur« 

1- Initialiseur (gèré par CMOLOAD) 
-cherche place disponible eo RAM 
-reloge les modules suivants 
-chaîne cde axterne à ProDOS 
Contrôleur de cotmande 

-vérifie la syntaxe de la commande 
-sinon ®rr ou envoi vers autre cde 
3- Formatteur physique 

-formatte pistes en 16 secteurs 
—contrôle le formattage 

4- Formatteur logique 

-initialise les blcos su fonsat 
logiquo ProDOs 


w 
œ 
CC 
n 
û 


47 * Link 
46 * mue 


49 * Ce source d'assemblage doit e “tre 


en janvier 1984, 1.0.1 en juillet 
1984; on parle d'une version 
prochaine gérant le futur modem 
d'Apple. Attention: la version 
"B.4" que possède certains 
lecteurs de Pom's, distribuée aux 
développeurs de logiciels à partir 
de janvier 1983, n'est pas 
officiellement supportée par 
Apple (les fichiers ProDOS et 
Basic.System, appellés Pro. 
Kernel et Bas.Interp, ont depuis 
été corrigés et réassemblés). 


Gestion de la 
mémoire 


Jusqu'à présent, les programmes 
assembleurs étaient généralement 
placés en page 3 ($300-$S3CF) ou 
juste au-dessous des trois buffers 
du DOS en $9600. D'où une 
joyeuse cacophonie lorsqu'il 
s'agissait de faire résider 
plusieurs d'entre eux en 
mémoire, ou d'utiliser simul- 
tanément plus de trois fichiers ! 


Cette anarchie est révolue sous 
ProDOS les programmes 
devront pouvoir co-exister en 


chsîné avec le fichier 

S0 * des blocs du boot Pro00S (correspondant 
8 la version 

51 * désirée) par le Programme INIT.LINK, 
puis avec CMDLINK, 


Si 

53 * Source (giÿ Mac): INIF.COD£0.5 
54 »* Objet: INIT.CODEQ 
55 A Link: INIT.LINX 


56 + hodule exécutable: INIT.CODE 
57 
56 * Constanten d'assemblage 


59 * mannesvssnmnmmssss<= 


60 GAP1 - 255 but de piste 

61 GAPZ = 5 entre champs 
adresse & données 
(5-10) 

62 GAP3 = 25 entre secteurs 


(16-28)par défaut 
nb esssis pour 
une Diste 
caractère blanc 


63 RETRY = 16 


64 8 - $20 


66 + Adresses utiliséees: 
67 4 ose——---- 
68 PITR - $s48 
69 HIMEM = 513 
70 

71 PRINTERA = $BEOC 








vecteur temDorair 


affiche erreur 
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appels en assembleur 


mémoire, quel que soit le nombre 

de fichiers ouvents. A cet effet, ils 

disposent d'une carte des pages 

RAM libres (située en 

$BF58-$BF6F), et doivent suivre 

le protocole suivant : 

s les programmes courts et 
temporaires (chargés puis 
exécutés qu'une seule fois) se 
placent en $300 ; 

o les programmes temporaires ne 
faisant pas d'appels à ProDOS 
doivent examiner la carte de la 
mémoire et se placer sur les 
plus hautes pages disponibles ; 

e en règle générale, les 
programmes devront également 
marquer sur cette carte les 
pages 6502 qu'ils s'allouent, 
afin de ne pas être écrasés par 
les programmes suivants ou 
par ProDOS lorsqu'il gère ses 
buffers. 


La carte de la mémoire contient 
24 octets, soit 192 bits ; chacun 
représente le status d'une des 
pages $00 à $BF, le bit est à 1 si 
la page est libre. Les pages $00 à 
$02 sont toujours marquées 
occupé, ainsi que les pages $9A à 





72 XTAODR = $BES0 sortie cde extern 

73 XLEN " 5BE52 long cde externe 

74 XCNUM - $8E53 D‘ de cde ProDOS 

75 PBITS . SRES4 bits d'eutori- 
sation Peramètres 

76 FBITS = SBES6 bits des para- 
métres trouvés 

77 61_SLOT = $azél slot commande 

76 BI_DRIVE = SBR62 drive d'une cée 

79 VPATHL = Sa£éc vecteur nom volum 

$0 BADCALL = Sarep convertie erreurs 


MLI->Basic Systes 


41 MLI = $aFO0 ehciée MLI vers 
ProDOS Kernel 

62 DATETIME = sar06 appel & routine 
Gæ l'horloge 

83 SYSERR = $eor code erreur MEI 

84 OATE = ser 90 date/heure sur 4 
octets 

85 

86 RAIT - $ICA8 attence 

47 RTS = STF58 contient un RTS 

6e 

89 + Macre-instructions: 

90 * s=z-cossssezawzus 

$1 WRITE MAC técriture 
physique sur disk 

92 STA SCOBD,X (x = s10t x 510) 

933 CHP SCO8C,X 


34 <<< 


$BF lorsque le Basic.System est 
présent. 


A l'origine, une routine 
GETBUFR, située en $BEFS, 
devait pouvoir être appelée pour 
obtenir le numéro de la première 
page disponible. Celle-ci a 
disparue des versions actuelles de 
ProDOS, probablement pour des 
raisons de place. 


Heureusement, son fonction- 
nement a pû être reconstitué et 
vous la trouverez au sein du 
programme CMDLOAD qui sera 
détaillé par la suite. 


En entrée de cette routine, 
l'accumulateur doit contenir le 
nombre de pages de $100 octets 
désirés et le registre Y doit être 
non nul si le programme est 
permanent et doit donc marquer 
les pages comme défmitivement 
occupées. 


En sortie, la retenue (carry) est à 
1 s'il n'existe pas de groupe de 
pages consécutives libre ; sinon 
l'accumulateur contient le numéro 
de la première page du groupe. 
Auparavant, nous devons parler 
protocole : 


95 DELAÏ2 MAC :d#lsi 2? cycles 


56 NOP 

97 <E< 

98 DELAI3 MAC délai 3 cycles 

y JMP ++3 

100 <<< 

191 DELAI4 MAC tdélai 4 cycles 

102 >#> DELAIZ 

103 >>> DELA12 

104 <<< 

105 DELAIS MAC délai 6 cycles 

105 >#> DELAI? 

107 >>> DELAI2 

10s >>> OELAIZ 

109 <<< 

110 DEIAI? Hac sdélai 7 cycles 

di PEA 

x12 BEA 

113 <<< 

114 OFIAI12 NAC délai 12 cycles 

115 JER RTS 

116 << 

117 

Lie ORG 52100 {CHDLORD de 52000 
3 $520FF) 

119 

120 2SLLLLLLDRDARDRSARRRRAASRRRRARRRRARRRRAARS à 

121 ° 1 - INITLALISEUR . 


122 sssssssssasssassssssrasssssmsengencconcaes 


123 


Mise en place d'un 
programme 
assembleur 


Plusieurs étapes permettent 
d'intégrer un programme dans 
l'environnemnt existant. Comme 
elles sont relativement 
complexes, elles ont été reprises 
en majorité dans le programme 
CMDLOAD qui initialise les 
commandes additionnelles (égale- 
ment appelées externes) de 
ProDOS : 


l)se charger en $2000. Cette 
adresse est supposée libre car les 
programmes assembleurs doivent 
être chargés en tout début, avant 
l'exécution d'un programme 
Applesoft par exemple ; 


2)d'abord vérifier le système 
d'exploitation: si celui-ci n'est 
pas ProDOS, autant éviter de 
poursuivre Car on court à la 
catastrophe ; 

3) vérifier qu'il n'existe pas de 
fichiers ouverts car ProDOS gère 
la carte de la mémoire pour ses 


124 * Doit débuter sur une frontière de page 
6502 

125 

126 + 2.1 - Vérifie que la commande externe 
ast le nôtre 


227 4 mue 
126 START LI e 
129 CLO nécessaire 


130 

131 * Conventions de link #&vec CMDLOAD: 

132 1LDA #>Fin+$100 

133 LDA #>LONG 

194 V_OLDCWD LDA RTS 

155 

136 + Conventions de Link avec INIT-LIGEK: 

1237 VC_BOOT2 LOA BUOT, 8L2 convention pour 
link avec blocs 0/1 PruDOs 

138 

139 


140 soscccccconoccccccccccconroneenenenenenene 


141 2 - CONTROLEUR DE COMMANDE . 

142 sostossoconcosssenconnemenammenrecccrescue 

143 

144 LDA VPATEL pointeur vers la 
commandes actuelle 

145 8TA PTR 

146 LDA VPATEl+l 

147 STA  PTA+1 


148 « (51 lecture #n $200, on devrait éviter 
les carsctèces blancs) 
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Si 


propres besoins en buffer. Si, 
d'autre part, un programme 
Applesoft a déjà créé des 
variables chaînes de caractères, 
celles-ci seront inutilisables et il 
est préférable d'effectuer un 
CLEAR après l'initialisation ; 


4) appeler la routine ci-dessus de 
réservation en mémoire, 


S)se reloger sur les pages 
allouées précédemment. Si votre 
programme est directement 
relogeable (pas de JSR, JMP, 
LDA ou STX internes par 
exemple), il vous suffit d'appeler 
la routine MOVE du moniteur. 
Sinon, pas de problème, une 
routine de CMDLOAD vous 
mâchera le travail en respectant le 
protocole suivant : 


o la partie à reloger débute en 
$2100 

e l'octet haut de l'adresse de fin 
de votre programme, incré- 
menté de 1, se trouve en $2102 

o l'octet haut de la longueur de 
votre programme se trouve en 
$2104 

e l'adresse de la commande 
externe ProDOS précédente est 
en $2106.$2107. Votre 
programme devra y aller si la 
commande ProDOS n'est pas 
pour lui 

o la partie codes instructions 
6502 est séparée de la partie 





150 LDY + 

151 COMPAR LOA (PTA),Y obtient un caract 
152 CMP COMMAND-1,Y c'est "INIT" ? 
153 BNE NO_ CMD non 

154 INY 

155 CPY dsl 

156 BCC COHPAR 


188 « 2.2 - Demande à ProD0S d'examiner ln 
suite de la commande 


259 8 


160 DÉY 

161 DEY 

162 STY XLEN etocke long - 1 

163 LOA #0 

164 *  STA SYSERA initialise code 
erreur MLI 

185 STA  XCNUM indique cde exter 

166 LBA 4#%00000001 

167 STA PBITS nom de fichier 
(volumes) autorise 

168 LOA #%00000100 

169 STA PBITS+] s1ôt 4 drive 
autorisés 

170 

171 EPA PRAINTERR+1 détourne le 
vecteur erreur 
(pes de préfixe} 

172 STA SAVE_ERR 

173 LOA PRINTERR+2 

174 STA SAVE_ERR+1 

175 V_SUITE LOA SUITE vecteur de retour 
après examen 

176 LDA V_SUITE+] 





données (constantes + 
variables) par un BRK ($00). 
La partie code sera 
ré-assemblée, la partie données 
sera simplement recopiée. 
Attention : des instructions du 
(pe : 
PARTIE  LDA #<PARTIEZ2 (avec 
PARTIE2 quelque 
part dans votre 
poogramme) 
LDY #>PARTIE2 
sont à banir car non relogeables, 
et devront être remplacées par : 


PARTIEL  LDA PARTIE2 
LDA PARTIE1+1 
LDY PARTIEI+2 


Une sixième étape est nécessaire 
si vous souhaitez raccorder votre 
programme à ProDOS comme 
une commande externe: d'abord 
sauvegarder l'adresse de la 
commande externe précédente (en 
$BEO06.BE07), puis placer la 
vôtre à la place. Bien sür, la 
même chose doit s'appliquer si 
vous vous raccordez ailleurs, à 
l'Ampersand (&) par exemple : 
vous devez toujours supposer 
que vous êtes le deuxième 
programme à vous connecter, et 
sauver l'ancien vecteur en 
conséquence. 


Nous supposerons désonnais que 
votre programme est une 


177 STA XTADDR indique à ProDOS 
OÙ revenir apréa 

178 STA PRINTERR+1 indique où 
revenir si erreur 

175 LOn V_SUITE+2 

180 STA XTAOOR+1 

181 STA PRINTERR+2 

18e CLIC sind que 4 ProD0s 
que c'était pour 
nous 

183 RTS 


185 NO CMD sec ?cde pas pour 
nous 
(V_OLDCMD+1) alimenté Paz 


CMDLOAD 
188 « 2.3 — Retour d'analyse de la commande 


190 SUITE n . 


151 LDX SAVE_ERR replace le vecteur 
d'erreur 

192 STX PRINTERR+1 

193 LDX SAVE_ERR+1 

194 BTX PRINTERR+2 

195 

186 CHP 90 si pas d'erreur, 
on re-formatte 

197 BEQ SUITE _2 

198 CHP #6 path not found 
autorisé 

199 BEQ SUITE 2 

200 Cub #6 1/0 error 
autorisé 

201 BNE GO BAD2 


commande externe, c'est à dire 
directement accessible au clavier 
en mode direct, ou par PRINT 
CHR$(4) en mode différé dans 
un programme. 


Utilisation de 
CMDLOAD 


Si la lecture des derniers 
paragraphes vous a rendu tout 
pâle, et que vous vous dites que, 
tout compte fait, l'empirisme du 
DOS 3.3 était bien agréable, dites 
vous que la localisation absolue 
en mémoire des programmes est 
très égoïste et peu réaliste avec la 
venue prochaine de processeurs 
16 bits sur Apple IL De plus, le 
module CMDLOAD vous fait tout 
le travail ! 

CMDLOAD est destiné à être 
utilisé par tout programme 
désireux de se connecter à 
ProDOS. Les deux exemples 
ci-dessous (TDUMP et INIT) ne 
sont destinés qu'à illustrer son 
utilisation. 


Chargez par BLOAD d'abord 
votre programme en $2100 puis 
exécutez CMDLOAD en $2000, 
ou utilisez le programme 
CMDLINK qui fusionne les deux 
en un fichier ProDOS de type 
binaire, directement exécutable 
par"”-" (smart Run), par exemple 


202 SUITE_2 LOA BT SIOT sit demandé 


203 ORA #85c0 

204 STA V_CARD+2 

205 LOA 4#528 ro devica 

206 V_CARD LOX SCOFF si pas un Disk IL 
207 BEQ LIT VOL 


208 

209 GO BAD JSR BADCALL en entrée: Acc= 
code erreur MLI 
210 GO_BAD2 JMP PRINTERR 

211 

212 n 2.4 - Extraction du nom du volume 

219 M mm mmene veu 

(TR pointe déja 
vers VPATH]) 


215 LDY +0 

216 LBA (PTR}),Y longueur du nom 
du volume 

217 TAX 

2168 DEX 

219 cPx #$10 

220 BC3 SYNTAX nom de volume < 
16 caractères 

221 STX WCOM_LG 

222 Ir 

223 LOA  (PTR).Y 

224 CP +t'{° 

225 BAR SYNTAX le ler ceractère 
deit ètre */* 

226 INT 

227 LDA (PTR},Y le ler caractère 


doit étre une 
lettre 
226 LIT_CAR CMP d'A’ 
229 BCC SYNTAX 
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à partir de votre programme de 
STARTUP. 


Dans ce dernier cas, votre 
programme doit s'appeler 
xxx. CODE, et le fichier résultant 
s'appellera simplement xxx. 
(Apple a créé sous ProDOS des 
fichiers de type “commande 
externe”, numérotés $F0, mais 
ceux-ci ne sont pas exécutables 
par BRUN ou "-"… quel in- 
térêt ?) 

CMDLOAD peut générer les 
messages d'erreur : 


FILE(S) STILL OPEN (aucun 
fichier ne doit être ouvert pour la 
mise en place d'une commande) ; 


PROGRAM TOO LARGE (s'il 
ne reste pas suffisamment de 
pages libres en mémoire pour 
reloger la commande). 


Fonctionnement 
des commandes 
externes 


Lorsque ProDOS rencontre une 
commande qu'il ne connaît pas, il 
appelle l'adresse EXTRNCMD 
($BE06). En temps normal, 
celle-ci contient un JMP vers une 
instruction RTS. Mais il pointe 
sur le début de votre programme 
($2100) si celui-ci a été initialisé 


230 CMP #'z'+1 

231 BCS SYNTAX 

232 LIT_NOH STA NCM_VOL-2,Y 

233 DEX 

234 BEC GO GO fin du nom 

235 INY 

236 LDA (ETR),Ÿ ceractère suivant 
237 CMP» #'.* "," est autorisé 
238 B£Q LIT _NOM 

233 CHP #'0° 

240 BCC LIT_CAR 

241 CMP +#'9:+1 

242 BCC EIT NOM c'est un chiffre 
243 BCS LIT _CAR 

244 SYNTAX LDA 46540 

245 BN£ GO_BAD = 


246 
247 * 2.5 - Formattages 
248 # mu 


249 GO GO J3R ERMAYT P format. physique 


250 BCS GO_BAD 

251 JSA EGRMAT_L format. logique 
252 BCS GO_BAD 

253 RTS 

254 

255 

256 nosconannnnsemaneammamemanemamanannsnnna en 
257 * 3 —- FORMATTEUR PHYSIQUE LA 


258 LES SSL SSL LLLLLLLESE ELLE, LLL,L,LL,),, LEE, E,) 
259 

260 * 3.1 - Sélaction alot & drive 

261 # 

262 FORMAT_P = * 

263 LDA BI_SIOT 
264 ASL 


no alot: 503 





Pom's n° 20 


parCMDLOAD. 


Votre programme doit vérifier 
qu'il s'agit bien d'une commande 
qui lui est destinée. La chaîne de 
caractères a été placée par 
ProDOS dans le buffer d'entrée 
en $0209 (avec éventuellement 
les caractères blancs non 
significatifs qui ont pà être 
saisis), et ses huit premiers octets 
(sans caractère blanc) se trouvent 
dans le buffer dont l'adresse est 
pointée par VPATH1 ($BE6C- 
BE6D). L'oubli de ce contrôle 
détruirait la chaîne d'interception 
et, par exemple, aucune 
instruction Applesoft ne serait 
disponible en mode direct. 

S'il ne s'agit pas de votre 
commande, effectuez un saut à 
l'adresse contenue à l'adresse 
(relogée) $2106.2107 avec la 
retenue (carry) à 1. 


Extraction des 
paramètres par 
ProDOS 


Si votre commande ne nécessite 
aucun paramètre, Ou si vous 
préférez les extraire vous même, 
placez un $00 en PBITS et 
PBITS+1 ($BES4-BES55) et 
retournez à ProDOS par un RTS 
avec la retenue à zéro. 


265 ASE 
268 ASL 
267 ASE 
268 STA FSIQT $s0 
263 ORA BI_DRIVE 40353004 
{dtive = 1 ou 2} 
270 TAX 
271 DEX 
272 LDA SCO8a,x sélectionne drive 


€x = $03330004) 
273 
274 « 3.2 - Recalibre la te “te de lecture 
27S © mm 


276 JS8R RECALIBER 

277 LDA $cO080,x désactive toutes 
les phases 

278 LPA 5CO082,X 

279 LOA SC084.X 

260 LDA $C066,X 


281 
282 = 3.3 - Boucle sur les 35 pistes 
285 


284 LDA 6GAP3 espacemæent 
inter-3ecteurs 
par défaut 

285 STA GAP3_BTS 

266 LDA #$80 

287 8TA OP_MLI on abpelera 


Pro0O6 en lecture 
nombre d'essais 
avant abandon 


288 LOOPTRX LDA ÊRETRY 


283 STA RETRYCNT 
230 INC GAP3 BIS 
291 INITMORE LDA #0 


vitesse lecteur 
on commænce par 
ie secteur D 


Dans le cas contraire, il faut 
indiquer à ProDOS quels sont les 
paramètres autorisés en 
alimentant les bits de PBITS et 
PBITS+!1 : 


$8000 demande de concaténer le 
préfixe actuel avec le nom 
de fichier saisi 

$4000 seul un numéro de slot est 
autorisé (PR# ou IN#) 

$2000 commande en mode 
différé uniquement 
(OPEN RÉAD...) 

$1000 nom de fichier autorisé 

$0800 création automatique du 
fichier saisi s'il n'existe 
pas 

$0400 paramètre T autorisé 

$0200 second nom de fichier 
obligatoire (RENAME) 

$0100 nom de fichier obligatoire 

$0080 à $0001 autorise respec- 
tivement les paramètres 
À, B, E, L, @, S/D, F et 
R 


H faut également indiquer à 
ProDOS que vous êtes une 
commande externe en stockant un 
$00 en XCNUM ($BE53), 
l'adresse où ProDOS devra vous 
rappeler après l'analyse des 
paramètres en XTRNADDR 
($BESO-BES1), la longueur 
diminuée de 1 du nom de votre 
commande en XLEN ($BES52) 
(par exemple 3 pour la commande 


281 STA FSERCTOR 

293 SEI 

294 JSR INITRACK format. physique 

295 8CS ENDINIT write-protect 

296 

297 JSR VER_TRK vérifie 1q piste 

298 CLI 

299 BCC GÆRECK ok longueur 

300 DEC GAP3 BIS on diminue GAP3 
et on recommence 

301 LDA GAPà BIS 

302 Cæ +8 abandon 31 - de 8 
oct intersecteurs 

303 BCS INITMOR& 

304 10_ERR LDA #$27 1/0 error 

305 SEC 

306 BCS ENDINIT 29rp 

307 

308 GOCHECK JSR CHECKTRK vérifie le 
formattage 

309 BCC WRXTTAK 

310 DEC RETRYCNT 

311 BNE INITMORE on refait un 
esaai 

312 BEQ 1IO_ERR =) 


313 
314 NEXTTRK LDA FTRACK 


315 INC FTRACK 

316 LDY  FTRACK 

317 J3R ARM_ MOVE place bras lectur 
31e CHP #35 35e piste ? 

3i9 BCC  LOOPTRK pss encore 

320 CLC 

32t ENOENIT LDY $C086,X arrête le moteur 
322 EXIT RTS 
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INIT). Enfin, retournez à 
ProDOS par un RTS avec la 
retenue à zéro. 


ProDOS se chargera d'examiner 
les paramètres, et de générer 
éventuellement les messages 
d'erreur de SYNTAX, RANGE 
ou PATH NOT FOUND (si des 
paramètres slot et drive ou un 
nom complet de fichier avec 
l'indication du volume ont été 
saisis, ProDOS lit les disques en 
ligne pour créer ses pointeurs 
intemes entre volume logique et 
lecteur physique). 

Si tout se passe bien, ProDOS 
rappelle votre programme à partir 
de XTRNADDR. Les paramètres 
effectivement trouvés sont 
indiqués parun bit de présence en 
FBITS et FBITS+1 ($BE56 
-BES7), qui reprend le découpage 
de PBITS. La valeur effective des 
paramètres est stockée 
respectivement en : 

VADDR $BES58-BE59 paramètre À 


VBYTE  $BESA-BESC paramètre B 
VENDA $BESD-BESE paramètre E 


VENTH S$BES5F-BE60 paramètre L 

VSLOT $BE61 paramètre S 

VDRIV  $BE62 paramètre D 

VFELD  $BE63-BE64 paramètre F 

VRECD $BE6S-BE66 paramètre R 

VVOLM $BE67 paramètre V 
(ignoré par les commandes 
ProDOS actuelles) 

323 * (en sortie: c=0 —> formattage ok, 

324 * c=1l A=27 —> 1/0 error, 

325 AcZB ==> wlite protect) 


326 
327 * 3.$ - Ecriture de j’en-tète de piste 


328 * =. ----------------—-7mreseescee— 

329 INITRACK = . 

330 LOY 45 initialise la 
vérif de 1g 

331 LOA FTRACX 

337 PEA 

333 JSR VER_4 4 

334 PEA 

335 EOR #1 

336 LDY +9 

337 JSR VER 4 4 

338 

339 LOA $CB89,X moteur en marche 

340 

341 sec 

342 LDA +#52B 

343 LDY SC080.X node écriture 

344 LOY 5SCO8E,x 


345 * 

346 * À partir d'iol chaque cycle-mschine 
compte: 

347 * 4 cÿcles-machine 30nt nécessaires Dour 
écrite 1 bit. 

3468 4 40 cycles x (GAP1 + 16 x (GAP2 + 
GAP3)) 

349 + + 32 cyclez x 16 x (14 + $157 + 7) 

350 “(Les branchements relatifs doivent rester 
sur ls me “me page) 

351 * 


352 BMJI EXIT disq protégée 


VLINE  $BE68-BE69 paramètre @ 
RVTYPE $BE6A paramèire T 
VIOSLT $BES58-BES59 siot PR#/IN# 
VPATHI $BE6C-BE6D vecteur vers 
nom fichier 
VPATH2 $BEGE-BE6F vecteur vers 
second fichier 


Ces deux derniers vecteurs 
pointent sur un buffer qui 
contient d'abord la longueur du 
nom sur un octet, puis les 
caractères du nom (bit fort à 
zéro). Sile préfixe a été demandé 
(premier bit de PBITS), le 
chemin complet d'accès au fichier 
y est stocké. 


Votre programme est maintenant 
libre de poursuivre son 
exécution. 


Appels à ProDOS 
en assembleur 


Sous DOS 3.3, il était possible 
d'envoyer des commandes en les 
préfixant par un CTRL-D et en 
les envoyant à la routine de sortie 
des caractères (COUT en 
$FDED). 

Sous ProDOS, en revanche, il 
faut stocker la chaîne de 
caractères dans le buffer d'entrée 
en $0200 (avec les bits forts à 1), 
la faire suivre par un 
retour-chariot ($8D) puis appeler 





353 >>>  DELAÏ7 

354 LOA A{$Fr 

355 STA SCOBF.X d'abord un octet 
à SFF sur 40 cycl 

356 CMP SCOaC,x 

357 LDY +GAP1 

356 >>> DSIAI4 

359 >>> DELAI4 

369 JSR GAPWRIÎTE puis pluaieurs 


autres pour 
synchroniser 
361 
362 * 3.5 - Écriture de la zone adresse 
EL 
364 LOOPSECT LDA #$D5S écrit D5 AA 96 


365 JSR CONV_4E3 sur 32 cycles 

366 LDA H$AA 

367 JSR OONV_4E3 

366 LDA 1586 

369 JSA CONV_4E3 

370 

371 LDA ÿ de vol toujours 
1 sous Pro0Os 

372 “or 

373 JSR CONV_4_4 

374 LDA FTRACK à de piste 

375 JSR CONV_4_4 

376 LDA ESECTOR + de secteur 

377 JSR CONV_4_4 

378 

379 LDA FTRACK calcul du contrôl 
de somæ 

380 EOR FSECTOR 

381 EOR 1 

382 PRA 


DOSCMD en $BEO03. La petite 
routine ci-dessous fournit en 
exemple le catalogue du préfixe 
courant : 


LOOP 


JMP $BE03 
ASC "CAT" 
DFBS$8D 


Cette méthode ne fonctionne bien 
sûr que si le Basic.System est 
actif. On peut heureusement 
appeler directement le noyau de 


CMD 


ProDOS, avec la syntaxe 
générale : 
JSR $BF00 
DEB FONC  ; fonction 
demandée 
DA PARM  : adresse table 
paramètres 
BCS ERROR ; suite 
exécution 


En retour, la retenue est à 1 siune 
erreur s'est produite et l'accu- 
mulateur contient la valeur du 
code erreur. 


Les tables de paramètres sont 
différentes pour chaque fonction 
et débutent toujours par un octet 
indiquant le nombre en 
hexadécimal de paramètres 
suivants ; voici leurs fonctions 


353 LSR 

384 ORA {SAA on le transforræm 
en nibble valide 

355 >>> WRITE et on l'écrit 

386 PLA 

387 ORA +$AA 

388 JSR CONV_4E2 2e nibbie du 
contrôle de somæ 

389 

390 LDA #SDE écrit DE AA EB 

391 JSR CONV_4E3 

392 LOA san 

393 JSR CONV_4E3 

394 LOA 4SEB 

355 JSR CONV_4E3 


396 
397 * 3,6 - Ecriture de la zone de données 
398 ® = 


399 LDY #GAP2 octets entre 
adress et données 

400 JSR Gap_L3 

401 

402 LDA 4#5D5 puis 1D5 AA AD 

403 JSR CONV_4R3 

404 LDA +$AA 

405 JSR CONV_4E3 

406 LDA 9$AD 

407 JSR CONV_4E3 

498 

409 LDY 556 on écrit $54 
nibbles sur 32 
cycles 

ao BNE DATA_L3 mirp 


411 DATA _L2 >>> DELAI6 


412 DATA_L3 LOA #$96 595 = $00 aDres 
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(reportez vous à la bibliographie 
pour en connaître la description, 
ainsi que les codes erreurs) : 


Voir liste 1 = 


Voici, à titre d'exemple, une 
routine fournissant les attributs 
du fichier "ProDOS" sur le 
préfixe courant : 


Voir liste 2 = 


Le principal utilisateur de ces 
appels au noyau de ProDOS est le 
Basic.System ; toutes les fonc- 
tions d'accès aux fichiers sont 
officieilement disponibles via la 
page globale $BE. Voilà qui 
simplifie la vie, car la routine 
ci-dessus devient : 


Liste 


$40 
$41 
$65 
$80 
$81 
$82 
$co 
$CI1 
$c2 
$c3 
$C4 
$cs 
$Cé 
$c7 
$C8 
$c9 
$CA READ 
$CB 
$cc 


1 


$CD FLUSH 
$CE SET MARK 


fixe une rouœne de gestion d'interruption masquable (RQ) 
retrait d'une routine d'interruption 

demande de chargement d'un nouvel imerpréteur système 
lecoure d'un bloc de 512 octets 

écriture d'un bioc de 512 octets 

appel à l'horloge pour mise à jour date/heure ($SBF90-BF93) 
créaon d'un nouveau fichier 

desMution d'un ancien fichier 

renomme u n ancien fichier sous le meme chemin d'accès 
change ‘es anributs d'un fichier (type, lock/uniock..…) 

Lit les atibuts courants d'un fichier 

obtient, pour un lecwur physique, le 50m du volume monté 
change le préfixe par défaut 

lit le préfixe courant 

ouvre un fichier et retourne u n numéro de référence 
spécifie le caractère de fin de champ (normalemest $0D) 
lit un ov plusieurs octets à partir de la position courante 
écrit un ou plusieurs octets 

ferme un, plusieurs ou tous les fichiers ouverts 

écrit sur disque les buffers de un ou plusieurs fichiers 
change la position courante de lecture/écritire 








VoËlis#3 $CF GET MARK obtient la position courante de lecture/écriture 
Or UStES — $D0 SET EOF change Ia position de fin de fictier (pamet de tonquer) 
4 2 4 $D: GET _EOF obtient ja position de fin de fichier 
RÉPes et ReMendant du $D2 SET _BUF change l'adresse du buffer d'un fichier 
type de lecteur de disque  sp3 GET BUF obtientl'adresse du buffer d'un fichier 
employé, les fonctions ci-dessus 
parviennent finalement à un 
Device Driver ("gérant d'unité"?) 
spécifique. Pour la petite histoire, 
quatre fonctions sont possibles:  [jste 2 
STATUS fournit le nombre total 
de blocs du support et son status JSRSBF00  ; appelle ProDOS 
de protection contre l'écriture, DFB $C4 :get file info 
READ et WRITE n'appellent DA PARM  ; table des paramètres 
aucun commentaire, FORMAT ERREUR ;: cer 
' ;aon : 
n'est malheureusement pas ERRELR ISR $BE8B ; traduit le code erreur ProDOS en code erreur Basic.System 
disponible pour le Disk II IMP SBEUC ; gère l'erreur el quitte 
d'Apple (.. sinon pourquoi  PARM DFB 10 ; LOparamègres suivent... 
proposerait-on un utilitaire de DA PATHMM ; en entrée le aom du fichier, maintenant en sortie : 
DFB0 ; bits d'accès en lectue/écriture/destroy/rename/sauvegarde 
DFEB 0 ; type de fichier (programme Applesoft, binaire, texte, etc.) 
trans-codage DA $0000 ; type auxiliaire (par exemple adresse de chargement) 
413 >>>  DELRI6 DEB 0 ; type de stockage (sous-catalogue ou niveau des blocs d'index) 
sa is DA 50000 ; nombre de blocs utilisés 
426 F DA $0000 : date de dernière modification (bits = AAAAAAAMMMMIIII)) 
417 BNE DATA Le DA $0000 ; heure de dermière modif xcation {bits - HHHHHHHHr- 0 20 0-24) 
418 BEQ DATA_L5  =imp DA $0000 ; date de création 
419 ; É 
420 DATA_LS >>> DEFAIZ2 puis les $100 DA 50000 : heure de création 
ts Suisante PATHNM  DFB $% ; loagueur du nom 
421 OATA LS >>> BELAI1Z total: 5156, = ASC 'PRODOS ; avec bits ferts à 26r0 
$100 octets Abrés 
codsÿe 
422 >>>  DELAI4 
423 >7> WRITE 
424 DEY 
425 BNK DATA 14 
426 "] 
427 LDA +596 contrôle de somme Liste 3 
des données 
426 >#> DELAI2 
JSR  CONV_4E3 V_ PATH IDAPATHNNM ; instruction pour relocakon d'adresse 
2 US raies EDAV PATH+1 ; pointe vers ie aom de fichier. 
432 JSR CONV_4E3 STA $B EB4+1 : et le stocke sur la table des paramètres (SBEB4-BECS5) 
433 LDA {#$aA LDAV PATH22 ; 
434 JSR COV_dE3 STAS$BEB4+2  ; 
435 EDA #$ g 
de De cm LD A#$C4 : code de get_file info 
437 LDA 4$EF ISR $BE70 ; Basic System eppelle ProDOS avec sa table 
438 JSR CONV.4E3 BCSERROR ; erreur ? 
439 : 
FE Dé Sie croisé RTS è 2on: fini, les paramères retournés sont en $SBEB7-BECS 
INTER se reuss ERROR  JMP SBE09 ; Basic System va gérerl'ereur 
441 JSR GAP_LO PATHNM DFB $06 ; longtexr du nom 
442 ASC PRODOS'  ; avec bits forts à 2610 
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formattage dans cet article ?). De 
toute manière, il est hautement 
déconseillé de l'appeler 
directement car, d'une part les 
fonctions READ BLOCK et 
WRITE BLOCK de ProDOS 
suffisent amplement, d'autre part 
le Device Driver se trouve dans la 
partie haute de la carte langage 
(sur l'emplacement du moniteur 
de la ROM), donc peu accessible 
et il ne vous pardonnera jamais 
les erreurs. 


Première 
application : 
TDUMP 


Si on passait aux travaux 
pratiques ? Pour s'échauffer, 
abordons la commande TDUMP ; 
elle fournit sur l'unité courante de 
sortie (écran vidéo ou 
imprimante) un "écorché” en trois 
parties d'un fichier : d'abord la 
position du dump dans le fichier 
(décalage par rapport au début), 
puis l'affichage des codes ASCII 
correspondants (sauf les codes de 
contrôle qui font trop souvent 
délirer les cartes d'interface...), 
enfin la valeuren hexadécimal de 
chaque octet. 


La syntaxe complète est : 


443 * 3.7 - Boucle sur secteur suivant 
CODES ee 


445 INC FSECTOR avec ProDOS les 
secteurs sont 
placés 

446 >>> DELAI4 séquentiellement 
sur la piste 

447 >>> DELAI? 

448 >>> WRITE un dernier oôcter 
sur 40 cycles 

449 >>> DELAI3 

450 LDA FSECTOR 

451 CMP #5$10 

452 BCS FINSECT c'est fini pour 
cette piste 

453 JP LOOPSECT sinon on 


repart... 
454 
455 FINSECT >>> DELAIT 


456 >>> DELAI 

as? LDA  $CO8&. X remet en mode 
lecture 

458 LOA $CO08C,x 

459 cc 

460 RATS 


461 
462 a 3.e - Module déplacement bras de lecture 


ABS POP PESSESESs ET T  eNess 

494 RECALIER LOX FSLOT 

465 LDA $CO069,Xx moteur en marche 

466 LDA $COSE.X mode lecture 

467 LDA $CoBc,x 

468 

469 LDA #46 prétend être sur 
la piste 48 

470 LDY 00 on veut aller en 
piste 0 


TDUMP <nom fichier> [,S 
<slot>] [,D <drive>] 


Cette commande est applicable 
aux fichiers de tous types, (y 
compris les types SYS) ; les 
fichiers texte à accès direct sont 
également visualisables en 
totalité. Dans un but 
pédagogique, on peut également 
accéder aux sous-catalogues, 
ainsi qu'au catalogue principal du 
volume (par exemple en tapant 
TDUMP /EXAMPLES). 


On peut arrêter momentanément 
l'affichage par une touche 
quelconque, puis définitivement 
par Ctri-Q. 


Afin d'améliorer l'ergonomie, la 
commande adapte automati- 
quement l'affichage sur 40 ou 80 
colonnes selon l'adresse de 
l'unité de sortie (si celle-ci pointe 
sur un slot, l'affichage ou 
l'impression passe sur 80 
colonnes). 


Notre commande, appelée par 
ProDOS (et initialement mise en 
place par CMDLOAD), doit donc 
d'abord demander à contrôler la 
saisie du nom d'un fichier et des 
paramètres S et D éventuels, puis 
rendre la main. En retour, il faut 
ouvrir le fichier, en utilisant le 
buffer brouillon de ProDOS 
(utilisé par les commandes 


471 
472 ARM MOVE = * 
473 * (en entrée: ADiste actuelle, Y-piste 


csirée} 
474 ® (en sortie: FTRACK est mis à Jour) 
475 STA A_TRACK 
476 STY D_TRACK 
#77 LOA 40 
478 STA ARM_ FLAG 
479 LDA A_TRACK 
«a0 SEC 
481 SBC D_TRACK calcule ob de 
piates à déplacer 
482 BEQ ARK LA c'est fini 
483 BCS ARM L2 on continue 
494 £LOR #SFF 
405 ADC #1 ajuste résultat 


si sens négatif 
496 ARM_L2 STA ARMDIFE 


487 ROL ARM FLAG 

4884 LSR À _TRACK 

489 ROL ARN_FLAG 

490 ASL ARM FLAG 

491 LDY ARM FLAG 

492 ARAM_L3 I0A ARM TAB,Y 

493 JSR PHASE Phase à activer 

494 IDA ARM_TAB+1,Y Prend la phase 
suivante 

495 JSR PAASE 

496 TYA 

497 EOR #2 

438 TAY 

499 DEC ARM DIFF 

500 LDA ARN_DIFF 

sol BNE ARM L3 


S02 ARM_LA LDA D_TRACK 





temporaires telles que CATALOG 
et pointé par HIMEM), boucler 
sur une routine qui lit 8 ou 16 
octets à la fois (selon le nombre 
de colonnes), puis formatter une 
ligne qui est envoyée à 
l'affichage. Finalement, n'ou- 
blions pas de fermer le fichier ! 


Le source (Big Mac) s'appelle 
TDUMP.CODES et génère 
l'objet TDUMPCODE. 

Vous pourrez alors, pour mettre 
la commande en place, soit taper : 
BLOAD TDUMP.CODE 

BRUN CMDLOAD 

soit exécuter le programme 
CMDLINK qui créera le fichier 
TDUMP. 


Initialisation d'une 
disquette ProDOS 


Maintenant que nous nous 
sommes mis à table, passons au 
plat de résistance : l'initialisation 
d'une disquette ProDOS. 


Certes, l'utilitaire Filer fourni par 
Apple effectue le même travail. 
Mais : 

1) il interdit de pouvoir initialiser 
une disquette pendant 
l'exécution d'un programme 
puisqu'il faut charger le Filer, 


503 STA FTRACK 

504 LDX FSLOT 

505 RTS 

506 

507 PHASE ORA FSLOT $aû 

506 TAX 

503 LDA $CU81,X active la phase 

510 LDA #557 

511 JB8R WaIT attend 22 
millisecondes 

512 LOA SCU80,X désactive la 
Phase 

513 RTS 


514 

515 + 3.b - conversion octet <-> nibble 4+4 
SIG # en 
517 CONV_4_4 PHA 


518 LSR 

SÈ9 ORA  #$AA lalclelg 
520 >x> WRITE 

S21 PLA 

522 >>> DELAIS 

523 ORA SAR 1bidlfih 


S24 CONV_4EZ >>> DELAIZ 
525 CONV_4E3 >>> DELAI2 


526 >>> DELAI? 
527 >>> WRITE 
528 RTS 


529 
530 * 3.c - Module d'écriture des octets 
synchronisés à 40 cycles 
S31 ® = nn nn en —- 
532 GAPHRITE = . en entrée y = nb 
octets à écrire 


533 BKE GAP_L2 =} 
534 GAP_IO BNE GAP_LA = 
835 GAP_LI >>> DELAIZ 





Pom's n° 20 








puis recharger un interpréteur 
comme le Basic.System ; 

2)le Filer est très long (45 
secondes) ; 

3) le Filer ne s'adapte pas à la 
vitesse des lecteurs de 
disques : sur les deux lecteurs 
que je possède, le Filer refuse 
de formatter toute disquette sur 
l'un d'entre eux, estimant que 
la vitesse de rotation est trop 
rapide, alors qu'il est possible 
d'initialiser sans problème 
sous DOS 3.3 ! 


Notre programme sera appelé 
comme une commande externe 
ProDOS, donc accessible en 
mode direct ou différé. Il devra 
être plus rapide et s'adapter à la 
vitesse des lecteurs de disques. 
Seules les disquettes pour Disk II 
d'Apple pourront être initialisées, 
pas question d'accéder à un 
ProFile. La syntaxe est: 


INIT / <nom volume> [,S 
<slot>] [,D <drive>] 


Le nom du volume devra être 
précédé par un un caractère "/" et 
comprendre au plus quinze 
caractères répondant à la syntaxe 
des noms de fichiers ProDOS. Si 
slot et drive ne sont pas indiqués, 
l'initialisation s'effectuera sur le 
lecteur du préfixe courant. 

Les messages d'erreur possibles 


536 >>> DEIAI12 
537 GAP_L? >>> DEIAI3 
538 GAP_L3 >>> DELAI2 


539 >>> DELAI3 

540 GAP L4 >>> DEIAI2 

541 LDA 4#45PP donnera un octet 
à 10 bits: 
911111111100 

542 >>> WRITE 

543 DEY 

544 BNE GAP_L1i 

545 >>> DELAI4 

546 RTS 


548 * 3.d - Module de vérification du 
formattage d'une piste 


49 # 

550 CHECKTRX = ® 

551 LDA #0 

552 STA M_BLOCK+1 

553 STA M BUFFER lit vers buffer 
tous usages 

554 LDA BIMEM+1 Qi cemænce en 
Hiren 

555 STA M_BUFFER+1 

556 LDA VC _PARM+2 détermine l'ad 
des Paramètres 

557 STA VC_MLI+l 

558 LDY BI DRIVE no de lecteur 1/2 

559 DEY 

560 TYA 

561 LSR ==> carry=0 ou 1 

552 ROR 

563 CEA PSLOT donne %ds350000 

564 STA M_UWIT 

565 EDY #8 8 blocs par piste 

366 LOA FSRACK piste À contrôler 


sont : 


SYNTAX ERROR 
RANGEERROR 

WRITE PROTECTED 

NO DEVICE CONNECTED (si 
aucun lecteur Disk II sur le 
slot/drive indiqué) 

/O ERROR (si la disquette est 
physiquement endommagée ou la 
vitesse du lecteur est largement en 
dehors de la plage de tolérance) 


Bien entendu, l'initialisation 
d'une disquette efface 
définitivement toutes les données 
qui pouvaient y être enregistrées. 

Deux parties très distinctes 
recouvrent le terme d'initia- 
lisation: le formattage physique et 
le formattage logique. 


Formattage 
physique 


Le formattage physique est fort 
complexe. La description qui suit 
n'est nullement nécessaire à 
l'utilisation du programme, mais 
tente de répondre à la curiosité de 
nombreux lecteurs. 


Une disquette est composée de 35 
pistes, et la tête de lecture peut se 
déplacer individuellement sur 
chacune. Que la vie serait douce 
si tous les lecteurs de disque 


567 asL 
563 asL 
563 ASL L 
570 STA M _BLOCK ler bloc d'une 
à piste = piste x 8 
571 BCC CHECK_L2 
572 INC M BLOCK+1 (bloc > $FF) 


eppel à ProD0S 
vour lire le bloc 


573 CHECK _L2 JSR GO MLI 


574 BCS CHECK L3 via la zone non 
translatable 

575 INC M_BLOCK en sortie, le 
moteur est arrêté 

576 DEY 

577 BNE CHECK L2 bloc suivant 

578 CHECK_L3 RTS 3 c=0 ==> OK ; 


c=1 ==> KO 

579 

580 * 3.e - Vérification de la longueur de la 
biate foraattée 

SEL 4 mme 

582 *(cn vient normalement de boucler une 
piste, On doit 

583 * donc revenir sur la z0ne adresse du 
secteur 0.) 

584 VER_TRK LDY #1 


585 VER L1 LDA $CO8C,Xx lit un octet 


586 CM #$FF 

587 BNE VER Li on attend d'être 
aynchronisé 

588 DEY 

se3 BPL VER 11 on laisse passer 


2 oct synchro 
S20 VER _E2 EOA $CO8C.x 


591 BPL VER_L2 
592 CMP $SFF 
593 BRQ VER 1? encore un 


avaient exactement la même 
vitesse de rotation, à la 
micro-seconde près! C'est 


malheureusement impossible, et 


des méthodes complexes de 
lecture/écriture des quelques 
50000 bits d'une piste et 
d'encryptage/décryptage de ceux- 
ci en octets Ont uD être 
développées. 


A l'époque de la création du Disk 
Il, une capacité de 80ko était 
généralement disponible sur les 
disquettes de S$ pouces 1/4 ; 
l'abandon par Apple de la 
méthode coûteuse des bits de 
synchronisation, puis le 
découpage d'une piste en 16 
secteurs à partir du DOS 33, ont 
porté la capacité à 140k, en 
acceptant un certain nombre de 
contraintes qui doivent être gérées 
par le logiciel: 

° un octet ne peut être lu ou écrit 
que s'il respecte plusieurs 
ämitations (bitafort à 1, 
pas plus de deux bits nuls 
consécutifs, etc.) ; en 
conséquence, il faut 342 octets 
pour en coder 256. 


o chaque secteur d'une piste est 
composé de deux zones : 
adresse et données ; 

e la zone adresse comprend un 
préfixe (composé des octets 


synchronisé à laisser Dasser 

594 INY 

595 CPY 613 
adresse 

596 BEQ VER L3 c'est fini 

597 CMP TAB_VER,Y correspond au 
secteur 0 ? 

598 BEQ VER _L2 

5s9 SEC 
réduire GAP3 

600 RTS 

601 VER_L3 CLC 

602 ATS 

603 "(on peut maintenant demander à ProDOS ds 
contrôler 

604 * l'ensenble ds la piste, aana risque 
qu'il se plante...) 


13 octets en rone 


‘erreur: 11 faut 


605 
606 VER 4 4 PHA 


607 LSR 

608 ORA #5AA 

609 STA TAB VER,Y initialise table 
de vérification 

610 PLA 

éil ORA #$AA 

612 INY 

613 STA TAB_VER,Y 

6i4 RTS 

615 

6i6 

[SYAELLLELEL ETES TE LLLLLLLLELLLLESESCLCLLLILEZZL LI 

618 * 4 - FORMATTEUR LOGIQUE à 


[SC RELLLELLLEZELLLLLLLLELEL LEE EEE EEE LL LEE EEE EE 

620 

621 FORMAT L = * 

622 * (en entrée tous les blocs ont été 
initialisés à zéro binaire} 
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DS, AA, 96), des infonnations 
sur les numéros de volume, de 
piste, de secteur et un contrôle 
de somme (chacune codées sur 
deux octets), et un suffixe 
(DE, AA, EB); 

° la zone données comprend un 
préfixe (DS, AA, AD), les 342 
octets représentant les 256 
octets du secteur, un contrôle 
de somme sur un octet, et un 
suffixe (DE, AA EB) ; 

e chaque zone est précédée d'un 
certain nombre ‘“d'octets” 
spéciaux à dix bits, les huit 
premiers à un, les deux 
suivants à 0 ;ces octets servent 
à synchroniser la lecture sur le 
premier bit d'un octet, et non 
pas sur une position 
quelconque dans un octet ; 

° pour adapter le formattage à la 
vitesse de rotation, il suffit de 
“jouer” sur le nombre d'octets 
de synchronisation entre deux 
secteurs ; 


Ces contraintes doivent être 
gérées par le logiciel d'accès 
disque, et donc par le programme 
de formattage. 


La difficulté majeure à 
programmer cette routine réside 
dans sa dépendance au temps: 
chaque bit doit être écrit en quatre 


623 LOA fsei 

624 STA OP_MLI bn appelera 
PrODOS en 
écriture 

525 1DY #0 

626 STY M BLOCK+1 


628 * 4.1 - Blots 3 4 5 du Vclume Direcerory 


629 * = 

630 LOA #5 dernier bloc du 
Volume Directory 

691 STA H_BLOCK 

632 ÉDA #4 le précédent est 
ie blcc 4 

633 8TA (CHIMEM),Y Hlmem Pointe vers 
le buffer général 

634 JSR WRITE BL 

635 

639 DEC M_SLOCK on Passe au blood 

637 LDA 63 

636 STA (HIMEM),Y 

638 LOA à? 

640 1LDY #2 

641 STA (HIMEM},Y 

642 JSR WRITE_BL 

643 

644 DEC M _BLOCK «,-Puis on bloc 3 

645 LOA #4 

646 STA  (HIMEM),Y 

647 LOY 40 

648 LDA #2 

649 STA (RIMEM),Y 

650 JSR WRITE BL 


652 + 4.2 - Blao du Volume Bit Map 


a 
un 
w 

+ 


cycles-machine (soit trente-deux 
cycles pour un octet normal, et 
quarante cycles pour un octet de 
synchronisation), et il est donc 
impératif de compter le nombre 
de cycles de chaque instruction, 
car tout décalage rend la disquette 
illisible. Le développement a été 
grandement facilité par 
nul de Bugbyter (Pom's 
13): 


En conséquence et afin de rendre 
la lecture du source plus aisée, les 
instructions assembleur qui ne 
servent apparemment à rien mais 
permettent, en fait, de "passer le 
temps” ont été regroupées dans 
des macro-instructions de 
temporisation. 


ProDOS, comme le DOS 33, 
Pascal ou CP/M, utilise le même 
formattage physique en 16 
secteurs. En revanche le 
formattage logique diffère pour 
chaque système. 


Formattage logique 


Le formattage logique est 
l'organisation interne du système 
d'exploitation qui rend 
transparent, à l'utilisateur final, 
l'éparpillement en blocs d'un 
fichier sur la disquette ; (le bloc 
est une unité logique regroupant 


bloc libre 


655 LDY #522 ($22+1) x 8 = 280 
bloos sur disq 

656 WRITE_L2 STA  (HIMEM),Y 

657 DEY 

68z BNE NRITE _L2 

655 LDA $#l les blocs 0 à 6 
sont utilisés 

660 STA  (HIMEM),Y 

661 LDA 46 la Bit Map est 
sur le bloc 6 

6e2 STA #_ALOCK 

663 SR NARITE_8L 


664 

665 * 4.3 - Premier bloc du Volume Directory 

666 Ÿ == css. 

667 TYA #=0 

668 WRITE_L3 STA (HIMEM),Y on remet le bloc 
à zéro binaire 


669 Jay 

670 BNE WRITE _L3 

671 

672 LDA #63 

673 1DY #2 

674 STA (HIMEM),Y pointeur avant 
prochain bloc 

S7B 

676 INY 

677 INY 

678 LDA 65F0 Directarÿ du volu 

679 ORA  NON_LD 1g nom du volureæe 

(0-87) 

680 STA  (HIMEM),Y 

681 

682 LDX #0 

683 WRIÎTE_L4 LOA NOM_VOL,X nom du volume 

684 INY 


deux secteurs). 


Dans le cas de ProDOS, le 
formattage logique implique les 
actions suivantes: 


° mise à zéro binaire de tous les 
blocs. 

o les blocs deux à cinq 
contiennent le catalogue du 
volume ; ils sont chaînés entre 
eux par des pointeurs avant et 
arrière. De plus, le bloc 2 
contient des informations 
générales sur la disquette, tel 
que le nom du volume et sa 
date de création. 

o le bloc 6 contient la carte du 
volume ; après une initiali- 
sation, les sept premiers blocs 
doivent être marqués occupé. 

e les blocs 1 et 2 contiennent les 
instructions machine qui 
chargent ProDOS. Si la 
disquette est destinée à être 
bootée, il faudra copier le 
fichier ProDOS sur cette 
disquette, ainsi qu'un 
interpréteur système (généra- 
lement Basic.System). Dans 
le cas contraire, la disquette ne 
pourra être bootée (cas d'une 
disquette de données), et 
ProDOS affichera un message 
d'erreur en cas de tentative. 

Ces deux premiers blocs diffèrent 

selon les versions de ProDOS ; 





645 STA  (HIMEM).Y 

686 inx 

687 DEC NON_LG 

688 BNE WRITE_L4 

689 

690 JSR DATETIME  aptæl à une 
éventuelle 
horloge 

691 LDX 63 

692 LOY #$1F 

693 WAITE L5 LDA DOATE,X 

694 STA (HIMEM),Y met date/heure 
création disq 

655 DEY 

696 DBE 

697 BPL WRITE_LS 

638 

699 LDX 46 

700 LDY #952A 


701 WRITE_L6 LDA VOL_OIR,X met consrañtes 
anitiales du 


Directory 

702 STA  (HIMEM),Ÿ 

703 DEY 

704 DEX 

705 BrL WRITE_L6 

706 

707 LOA 42 ler bloc du 
Directory est #42 

708 STA WM_BLOCK 

708 JSR NRITE_8L 


710 
711 # 4.4 - Blocs génériques du boot 
ADS ES RE memes 


713 LDX VC_BOOT2+1 
714 STX M_BUFFER 
725 LDX VC_BOOTE+2 
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aussi, plutôt que rendre le 


programme de formattage 
dépendant d'une version précise 
(et doubler la taiile du source), 
utilisez INIT.LINK pour 
configurer la routine à votre 
propre version de ProDOS. 


Afin de contrôler le bon 
déroulement de l'initialisation 
physique de la disquette, un 
double contrôle est effectué après 
le formattage de chaque piste. 
Après avoir initialisé le dernier 
secteur d'une piste, on vérifie que 
le prochain secteur lu est bien le 
secteur zéro ; ceci permet de 
s'assurer que l'on n'a pas écrasé 
le début de la piste en écrivant la 
fin (cas d'un lecteur trop rapide), 
et que l'on n'a pas laissé un 
ancien secteur entre le début et la 
fin (cas d'un lecteur trop lent). 
Deuxième contrôle, plus 
approfondi celui-ci, on demande 
à ProDOS, par des appels à la 
fonction READ BLOCK, de 
vérifier que tous les secteurs de la 
piste peuvent être correctement 
lus. Attention : si on demandait à 
ProDOS de lire une disquette mal 
formattée physiquement, celui-ci 
se "planterait" lamentablement en 
faisant "trépigner" le bras de 
lecture. un bug ? 


Cette description vous a montré la 
complexité des méthodes 





716 STX M_BUFFER+1 

n7 DEC M_BLOCK d'abord le bloc 1 

718 JSR WRITE_BL 

719 DEX 

720 DEX 

721 STX M_BUFFBR+1 

72è DEC M _BLOCK puis le bloc 0 

723 JP WRISE_EL 

724 

725 * 4,3 - Module d'écriture d'un bloc 

TABIN =emmese mn 

727 WRITE_BL JSR GO _MLI 

728 BCC WRITE_B2 

729 PLA 451 erreur on 
saute un niveau 
d'appel 

7230 PLA 

731 MAITR_E2 RTS 

732 

LEPRLELELLLLILLL ETES LL LLELLELSILITLLEZEEIILELLS 

734 S - 108ES D£ TRAVAIL . 


73$ sesccscsnonnnnessssesenccscenennesssssnces 
136 
137 VC_PARM LDA M PARM instructicns Pour 


vecteurs relogeab 


138 BRK stermine la zone 
de codes 6502 rel 

739 

749 * S.1 - Constantes & variobles 

DAS = 


742 COMAND ASC ‘INWIT' 
743 FTRACK DFB 0O 

744 FSECTUR DFB 
745 FS1OT DFB 
746 ÀA_TRACK DF3 


60° 





d'accès-disque lorsqu'elles sont 
analysées au niveau le plus fin 
(et, en corollaire, la grande 
diversité des méthodes de 
protection possibles.….). 


Avec un peu de pratique, il est 
possible d'accroître la capacité 
des disquettes 5 pouces, peut-être 
d'environ 10%, en n'utilisant 
qu'un seul secteur par piste, 
secteur de longueur variable selon 
que la piste se trouve près de 
l'axe de rotation ou des bords, 
mais il faudrait alors réécrire 
quasi-complètement le système 
d'exploitation et on se retrouve 
très vite coincé par le hardware ! 


Cette première approche vous a 
néanmoins, je l'espère, montré 
que l'utilisation de ProDOS en 
assembleur était beaucoup plus 
aisée que sous DOS 3.3, pourvu 
que le maître-mot “coexistence” 
soit respecté entre les différents 
programmes. 


Bibliographie 
ProDOS Technical Reference 


Manual (Apple) 
Beneath Apple ProDOS (Quality 


Software) 
G 





747 D_TRACK DFB 0 

748 ARM_FLAG DFB 0 

749 ARM_DIFF DFB 

150 ARM TAB DFB 2,4,6,0,6,4,2,0 

751 GAP3 BIS DFB 0 

752 RETRYONT DFB © 

153 NOM LG DFB © 

754 NOM_VOL DFB B.,B.B.B.B.B.B,B,B,B,B 
:8.8.,B.B (15 blancs) 

755 TAB VER DFB $05.SAA.596, SAA, $SAB, 0,0, 
SAR, SAA. 0,0,SDE, SAA 

156 VOL DIR DFB $C3,827,$#D,0,0,6,0,518,1 

157 SAVE_ERR BA 0 


758 

959 « 5.2 - Agpel à ProDOS 

AO nsensnssensemmanase 

761 GO_MLI JSR MEL 

762 OP_#HLI DFB S80 lecture/écriture 
763 VC_MLI DA M PARA 

764 RTS 

765 M_PARM DFB 3 

766 Mm_CNIT DEB © 

767 K_BUFFER DA © 

769 M_BIOCK OA © 

769 

770 * S.3 - Blocs du boot 

TT 9 mms ———— 

772 * one mémeire chalnée Dar INIT.LINK 
773 6007_EL2 = a+5200 

774 

775 FIN - “+400 

776 LONG = +-START +5400 
977 LST ON 

778 END 


Programme CMDLOAD.S 


(Assembleur Blg Mac) 
1 LST OFF 
PAL] 
3 
4 tééééééééététrrnénénanédédédédétététééé 
5 . 
6 CMDLOAD . 
7. . 
D OTARRARAARARRARRARSR SA AS ARAARAARARARARS 


10 rennnacaanannananaennnanaenameeeenanns 
1l * Copyright (C) 1985 Alexandre Avrane * 
12 * L3 
13 + Modifié: 06/04/85 " 
14 * Créé: 10/03/85 Li 
15 * L2 
16 * Assembleur: Big Mac * 

tetthestonsenenenteneeeneneeneneneennet 


20 » Objectifs: 

As eme 

22 * Installe une commande externe 
ProD05/Basic.8ysten 

23 * Environnement: ProDOS + Basic Sÿster 

24 * Compatibilité: ProDOS B.4, 1.0, 1.0.1 et 
suivants 

25 * Intégratlont Chargéen $2000 

26 * Restrictions: aucun fichier ouvert, 

27 * chaïnes de caractères Basic détruites 


29 * Source (Big Mac): CHDLOAD.S 
30 « Objet: CHDLOAD 


32 ® Ce programme se charge en 52000 

33 * Avant son exécution, le commande externe 
doit savoir 

34 * été chargée et répondre aux conventions 
suivantes: 

35 a -chargement en $2100 

36 " -octet haut de l'adresse de fio 
incrémenté de 1 en 52102 

37 # -octet baut de le lOnQueur en 52104 

38 n -adresse de la Command externe 
précédente en $52106.2107 


40 * Adresses vtiliséees: 
41 + nono 
42 LENGTH = $2F longreur-l d'une 


instruction 6502 


43 A1 = s3c vecteurs du MIVE 

44 À2 - sx 

45 A4 = s42 

46 PTR a saé vect temporaire 

47 H1nEW = 573 

48 

49 OFFSET - Al 

S0 FLAG _MAJ = Al+l 

S1 8AS£ ” $2000 ad de chargement 

S2 START = BASE+$100 

53 RFIN = BASÉ+3102 

54 ALONG - BASE+5104 

SS OLOCMD = BASE +5106 

56 

S7 EX?CHD = $8206 vecteur entrée 
vers cée externe 

58 ERROUT = $aro9 vecteur erreur 

59 OPENCNT = $BX 4D nb fichier ouvert 

60 MLI - sar 00 entrée de ProDOS 

61 BITMAP - $3r 53 carte des pages 
RAM utilisées 

62 

63 OPCODE = SF8BE fournit long 
instruction 6503 

64 COUT - $FDED routice a£flahage 

65 MOVE = srE2C déplacert mhmoire 

66 

67 ORG BASE 

68 

69 LELLLRELEEEELEELEEELEEELELELEEEELLELELLLL)] 

70 4 1 - INITIALISEUR “ 


LOL LELLLLLELELEETET ELLE EE EST ET TETE EE LE 


73 LDA MALI 

74 CP ÿ$ac ‘iæ" ? 

75 BEQO VER _RAH 

76 LDA 9537 Poa0OS pas actif: 
on arrête 

77 JP CŒF en “beepant" 

78 


79 * 1.1 - Recherche ds le mémoire 
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80 * -—-- 








di VER RAM LOA CPENCNT Les cuverces 165 * K: > 0 slpeation permanente auz LBA FLAG NAT 
82 Fc BEQ FINS Ram Menory Bit Kep 92 BNÉ GBUF L4 non nul, ler 
83 Pa 45157 FILE STILL OPEN 166 * en sertie: carry = l Ai erreur, passege sans MAJ 
1 De RÉOUT in Pine 167 * sinon À = numéro lére page allouée 193 IBA BITMASK,Y 
168 194 @RA BITMAP,X MAJ Caste mémoire 
AMERDEQULEE LAS DrARR Aa rEenetRe 169 STA PAGE_N nb de psges 195 STA BITHAP,X 
dE — AE 36 RE cherchées 196 GBUF_Le LON PAGE 1 
87 JSR GETBUFR cherche pages RAM pre Fe PRE me = 
À 171 ci 198 DEC PAGE _2 
: ER FA de ei JO 172 ADC 44 cherche à/c au 199 sc PAGE 2 
49 NO_RAM LBA #4 PROGRAM TOO LARGE DOS AE Ar ee SRE FRCRSE open LE 
92 HP ERROUT Ps STA PAGE _1 vérifiées? 
174 STX FIiAG MAJ non nul: 2 Passag 201 BNE GBUF_L3 non, on centräle 
ë RAM_6K CMP HFIN Aëc = nsb lère jé SÉNEL RAS DEC PACA Fate rie FAENQU HEVaREe 
_ cu 176 BEQ GBU7 Lé Das trouvé 202 LDA FIAG_MAJ 
3 BCC NO RAM 177 GBUF L2 LOA PAGE_1 203 BNE GBUF LS  SÉ non nul, 2ème 
91 d ; se . STA ts — EE passage 
ER LDA PAGE pale courante 
de , 1.2 - installe la nouvelle commande 160 — PHA — 205 LDX PAGE 2 é‘ust fini 
97 LDX  EXTCMD+2 282 asie se 1e 
98 STA EXTCMB+2 Le ER 4. 
ss STX  OLBCMB+1 sus sa 
100 LDX EXTCMD+1 ét sauvegarde 
l'ar.cien vecteur 
101 STX OLDCMD de oommende ext 
102 LDY #0 
103 STY  EXTCMD+1 ? 
| Pom's vous propose 
195 # 1.3 - Réassemble le code objet 
106 À vssmesenmnmmsmencnmnmenmsmsm— 


CR *"Dominos” 


109 STA OFFSET 
110 PEA 
111 sec : : « 
M mu emmrix | Thierry Haurie Apple M+, //e, le 
113 STA HIMEM+1 fixe Ainen et le 
buffer gJéenersl 
114 LDA , #>START 0 . # # û . . . 2 ge e 
ns STA PTR« Il est inutile de présenté le jeu de dominos; celui-ci bénéficie d'un 


+ r à RE HS graphisme très soigné (en couleur si vous disposez d'une carte 


ter sur une page 


Li} ! à 

2 Chat Mauve") et les messages #ansmis par le programme sont, 
11# RELOC Ll LDY #0 . : : : 
He HS au choix, en Français, en Italien, en Allemand ou en Anglais. 
120 BEQ MOVE _Li BRK($S00) sépare 

code et constante 
121 JSR O9CO9NE denande ka long 
122 EDX LENGTH d'une instruction 
123 CrPY #2 31 2 alors 3 oct 
124 BNE AZ10C L2 
125 LOR (PTR),Y prend octet haut 
126 CMP  #>START 
127 BCC RELOC L2 adresse plus 

basse Que nous PA TLLL EEE EENTT EEE TOIETENEEEETEIEETTIET 
128 CMP HEIN F 
129 BCS RELOC_L2 adresse pius ne 1 

haute que nous 
130 ADC  OFFSET sjoute décalage e E 

SE 


132 A£L@C_L2 EDA PTR 


131 STA  (OTR),Y met A jour instru à 





133 SEC 
134 ADC LENGTH 
135 STA PTR 
136 LOA PTR+1 
137 ADC 40 
138 STA PTR+1 
139 8RÈ RELOC Li =)rp RSR 
140 
141 + 1.4 - Déplace code vars zbne dispanible 
142 P "mme 
143 MOVE_Ll LDY #<START doit être 0 (cede 
aliqné) 
144 LODA #>START 
145 STY Al 
146 STA Al+1l 
147 CLC 
148 ABC  HLONG 
149 STY A4 
154 DEY 
151 sTY A2 
152 STA A2+1 
153 LDA EXTCMD+2 
154 STA Aâ+! 
155 INY 
156 JP MOYE déplace, termine 
l'initialisation 184 TAX smultiplié par 8 209 S8tr LS EDA 40 

157 185 PLA 210 STA FIAG MAJ 
158 186 AND #7 forme indice dans 211 BEQ GBUF _L2 =jmp 
153 * 1.3 - recherche de pages libres en RAM marque de ChQ ect 212 GBUF_Lé SEC 
160 "nn 187 TAY 213 ATs 
161 GETBUER = * 1938 LDA BITNASK,Y 214 BITMASK DFB $680,$40,$20,$10,8,4,2,1 
162 * (ca module devait être intégré dans iss AND BITHAP,K car BIT adür.Xx 215 PAGE_N DFE OÙ 

PrOD@S à l'adresse SBEFS n'est Poasibie 216 PAGE_] DFE 0 
163 * en entrée: À = nombre de pages désirées que sur //c 217 PAGE_2 DFB O0 
164 * X = 0 : alloc mémoire temporaire 190 BNE GBUF_Li Das de place 218 END 





60 Pom's n° 20 


Récapitulation 


CMDLOAD 
2000- AD 00 BF c9 4C FO 05 A9 
2008- 87 4C ED FD AD 4D BE FO 
2010- 05 A9 15 4C 09 BE AD O4 
2018- 21 69 00 20 98 20 90 05 
2020- A9 OE 4C 09 BE CD 02 21 
2028- 90 F6 AE 08 BE 8D 08 BE 
2030- 8E 07 21 AE 07 BE 8E 06 
2038- 21 AO 00 8C 07 BE 48 E9 
2040- 21 85 3C 68 38 E9 O4 85 
2048- 74 A9 21 85 49 84 48 AO 
2050- 00 B1 48 FO 27 20 8E F8 
2058- A4 2F CO 02 DO OF B1 48 
2060- C9 21 90 09 CD 02 21 B0 
2068- 04 85 3C 91 48 AS 48 38 
2070- 65 2F 85 48 A5 49 69 O0 
2078- 85 49 DO D3 AO 00 A9 21 
2080- 84 3C 85 3D 18 6D O4 21 
2088- 84 42 88 84 3E 85 3F AD 
2090- 08 BE 85 43 C8 4C 2C FE 
2098- 8D FB 20 AS 74 18 69 O4 
20A0- 8D FC 20 86 3D CE FC 20 
20A8- FO 47 AD FC 20 8D FD 20 
20B0- AD FD 20 48 4A. 4A 4A AA 
20B8- 68 29 07 A8 B9 F3 20 3D 
20C0- 58 BF DO El A5 3D DO 09 
20C8- B9 F3 20 1D 58 BF 9D 58 
20D0- BF AD FC 20 38 CE FD 20 
20D8- ED FD 20 CD FB 20 DO DO 
20E0- AS 3D DO 07 18 AE FD 20 
20E8- E8 8A 60 A9 00 85 3D FO 
20F0- B9 38 60 80 40 20 10 08 
20F8- 04 02 01 00 O0 O0 15 
Récapitulation 

INIT.CODEO 
2100- D8 A9 27 A9 08 AD 58 FF 
2108- AD 5E 27 AD 6C BE 85 48 
2110- AD 6D BE 85 49 AO O1 B1 
2118- 48 D9 13 25 DO 3F C8 cO 
2120- 05 90 F4 88 88 8C 52 BE 
2128- A9 00 8D OF BF 8D 53 BE 
2130- A9 01 8D 54 BE A9 04 8D 
2138- 55 BE AD OD BE 8D 4F 25 
2140- AD OE BE 8D 50 25 AD 61 
2148- 21 AD 47 21 8D 50 BE 8D 
2150- OD BE AD 48 21 8D 51 BE 
2158- 8D OE BE 18 60 38 6C 06 
2160- 21 AE 4F 25 8E OD BE AE 
2168- 50 25 8E OE BE C9 00 FO 
2170- 08 C9 06 FO 04 C9 08 DO 
2178- 12 AD 61 BE 09 CO 8D 85 
2180- 21 A9 28 AE FF CO FO 06 
2188- 20 8B BE 4C OC BE A0 00 


23 
20 


49 


AA 
23 
20 
A9 


58 


AS 


27 





EA 


25 


20 


A9 


ac 
co 


SA 





61 














Programme 
TDUMP.CODE.S 

(Assembleur Big Mac) 

1 LST OFF 

26 

? 

CMCLLLLLLLLLLLELLLLLLLLIELELELLLLLLLLLLL,]] 

S « * 

& PRCOOS TDUMP Li 

mu . 

ÉRELELELCECEZCCEEEELE LICE LIELLLLLI LILI III LL 

9 

10 LELLLLLLLLLLLLELLELLLLLE] .... .. 

11 * Copyright (C) 1985 Alexandre Avrane * 

12 . 

13 * Modifié: 26/04/85 . 

14 * Créé: 07/04/85 . 

15 * 

16 * Assembleur: Big Mac e 

PRAELLELELLLELLLLLILILLLLLLLILLLILLLILLLLLEI 

18 

19 

20 * Objectifs: 

21 4 

22 * Fournit un dump hexadécimal/ASCIIZ d'un 

fichier ProDOs 

23% 

24 * Syntaxe: 

25 * 

26 * TOUMP <nom ficbhier> [,8 <slot>} (,D 

<ärive>] 

27° 

28 * Environnement: Pro008 + Basic Syatexc 

29 * Intégration: cde externe Baelc System 

30 * 

31 * Moins de 5100 otreta 

32 * hrréèt momentanée Dar une touche, 


définitiE par ctrl-Q. 

53 * 

34 * Ce prog'anmæ doit être chaïné avec 
CHDILOAD pour etre 





35 * initieliaé comme une commande externe. 

36 * Source (Big Nac): INIT.TDUMP.S 

37 * Objet: 1INIT,TOUHP 

30 

39 * Aüresses utiliséees: 

40 « = 

41 PTR = s48 vecteur temora 

42 RIMEM È 573 

43 READ GOF = S280 buffer da lac- 
ture da 6/16 © 

44 

4$ PRINTERR = sBEÔC affiche erreurs 

46 VECTOUT = $BE30 xoutine sortie 

47 XTADDR = $BESO vecteurdguortie 
d'une € exter 

48 XLEN = $BES2 1g d'une cde ex 

49 XCNUM = $8ES3 n° ode FroDOS 

50 PBITS = SBES4 bite d'aucori- 
sation paramètre 

51 VPATHL = SBE6C vaoteur vers 
nom volume 

$2 GOSYSTEM = s8r70 acpel à ProDOS 
via Basic.Syste 

53 SOPEN = $SBECB table des para- 
rétres de OPEN 

354 SREAD ou SBEDS Cable des para- 
mét cos de READ 

SS SCLOSB = SBECD tabie des para- 
mélces de CLOSE 

S6 SYSERR = Ser0e code ezceur ML: 

s7 

58 K£EYBOARD = $scooo clavier 

S9 3STROBE = $ca10 raz Clavier 

60 PRB L2 - SF94A aff x blancs 

61 RACKEY = $FD)6 attente clavier 

62 CROUT = $FD8E envoi d'un CR 

63 PRNTKY3 = $FD99 affiche X et Y 
en haxa et "-" 

64 PRAYTE = $FDDA affiche accumul 

65 COUT = SFDED sortie caractèr 

66 RTS = seess Contient un RTS 

6? 

62 ORG 52100 (CHDLOAD de 
32000 à 320FF) 

69 


70 * 1.1 - Vérifie que la commande esterne 
@st la nôtre 

ne 

72 START 

73 

74 * Conventions de link avec CMPLOAD: 


inécessaira 








834 


42728-6L00 
bLowc-5100 
V_OLDCWD LDA RTS 
VPATAL pointeur vera 
cdæ actuelle 
PTR 

VPATAL+] 

PTRA+1 

LOY 1 

{PTR),Y obtient un cara 
COMMAND-1,Y c'est "TOUMP°? 
WO_CHD nan 


COMPAR 


p5+1 
COHPAR 


* 1.2 - Cenande à Pro00S d'examiner la 
suite de la commande 





. 
DEY 
8TY XLEN stocke 1g -1 
LOA 60 
STA SYSERA initialise 
x code erreur MLI 
STA CNOM indique cde ekc 
LDA 4400000601 
STA PBITS non de fichier/ 
volume autorisé 
LDA ##00000100 
STA PBITS+1 alot & drive 
autorisés 
V_SOITE LOA SUITE vecteuc de 
retour après 
examen 
OA V_S0ITEe1 
GTA XTADOR (ndique à Pro- 
DOS où ravenic 
LDA V_sUITE+2 
STA XTADDR+1 
CLC indique à Pco- 
DOS que c'éteit 
pour nous 
RATS 
NO_CHD sec ; ode “n'était 
pas pour nous 
JHP (V OLOCND+1) alimenté par 
CMDLOAD 
* 1.3 - Ouverture du fichier 


és irensniacenes eee 
SUITE LOA VPATHL nom fichier re- 
copié en param 
STA G6OPEN+i 
LOA VPATHI+1 
STA GOPEN+2 
LDA HIMEM 
STA BOPEN+3 
STA BREAD+S (accr0) 
STA OF FSET 
STA OE FSET+1 
LOA HIMEN+1 
STA BOPEN+4 
LOA 5c8 code OPEN 
J6R GOSYSTEM 
BCS LAREUR 
LDA SOPEN°S réf recopié.., 
STA SREAD-] en paramètre 
du READ, 
STA SCLOSE+1 et du CLOSE 
LOA #<R£AD_BUF utilise buffer 
5200 pour lire 
STA  SREAD+? 
LOA #>READ BUF 
STA SREAD+3 
* 1.5 - Boucle de lecture 


é His mn mime semer 
LDX #16 
LOA VECTOUT+1 
AND 05F0 conserve le 
lier demi-octet 
CHP #s3co sort vers slot? 
BEQ COL aui: 80 col 
LOR 46 
CcoL ATX SREAD+4 on Iira 8 où 16 
octets/ligne 
LDA 0340 caractère blanc 
BLANX STA RRAD BUF-1 X 
DEX 


154 BNE 
155 

156 LOOP LOA 
257 JSR 
15h BcC 
159 CP 
160 BEC 
161 ERREUR JP 
162 

163 ok LDX 
164 LDY 
165 JSR 
166 Lox 
167 JsR 
166 

169 LoY 
170 Lox 
171 Loopl LOA 
192 an 
173 CP 
174 Es 
175 LDA 
176 NORM ORA 
ar7 JSR 
176 DEX 
179 INY 
160 CPY 
161 Bcc 
182 

183 INX 
194 INX 
193 LDY 
196 8EQ 
137 LOOP2 LDX 
198 cour JSR 
189 LDA 
190 JSR 
191 IN 
192 CPY 
193 BCC 
194 

195 JSR 
196 LDA 
197 cc 
156 ADC 
199 STA 
200 LDA 
20 AOC 
202 STA 
203 

204 LDA 
205 BPL 
206 STA 
207 LDA 
208 JSR 
209 CMP 
210 BNE 
211 FINAL LDA 
212 JMP 
219 

214 * Variables 
218 © mm 
216 BRX 
217 COMMAND ASC 
216 OFFSET OA 
219 

220 PEN = 
221 LONG = 
222 LST 
223 EwC 


55 
FINAL 
PRINTERR 


OFFSET 
OFFSET+1 
PRHTXY3 


LU 

conr 

#1 

PRBL2 
READ_BUF.Y 
PRBYTE 


SREAD+6 
LOOP ? 


CROUT 
SREAD+4 


OFFSET 
OFFSET 
OFFSET41 
40 
OFFSET41 


KEYBGARD 
LOOP 
STROBE 

43a0 
RDKEY 
#551 
LoOP 
#scc 
GOSYSTEM 


* TOUMP* 
0 


fin du fichier? 
evi 


aléiche adresse 
dspuis le début 


nb d'oct à lire 


remplace carac- 
tère de ocntrôl 
bit cort à 1] 
pour CO0T 


“1® 
atficte ] blanc 
atfiche un oct 


dernier cacacté 
non 


fin de la Ligne 
MAJ adrens début 


ctri-Q ? 


CLOSE 


EIN-START+$100 


où 


Récapitulation 
TDUMP.CODE 


2100- 
2108- 
2110- 
2118- 
2120- 
2128- 
2130- 
2138- 


D8 
AD 
85 
22 
88 
OF 
54 
ac 


A9 
ec 
49 
DO 
88 
BF 
BE 
22 


A9 
85 
01 
C8 
s2 
53 
04 
38 


23 
BE 
AO 
2D 


01 
48 
B1 
co 
BE 
BE 
8D 
21 


58 
6D 
D9 
90 
00 
01 
BE 
50 


17 
F4 


FE 
BE 


89 
80 
AD 
BE 





2140- AD 
2148- 38 
2150= CC 
2158- AS 
2160- 8D 
2168- 8D 
2170- BO 
2178- 8D 
2180- A9 
2188- 31 
2190- A2 
2198- FF 
21A0- 70 
21A8- 4C 
21B0-— 22 
21B8- F9 
21C0- 02 
21C8- 2E 
21D0- CC 
21D8- 00 
21E0- B9 
21E8- DB 
21F0- D9 
2LE8- Za 


39 
6C 
BE 
tea 
1D 
CF 
36 
DE 
02 
BE 
08 
01 
BE 
OC 
20 
A0 
29 
09 
DB 
FO 
00 
BE 
BE 
AD 


8D 
21 
6D 
CE 
8D 
A9 
DO 
A9 
D8 
FO 
D9 
DO 
07 
AE 
FD 
AE 
G9 
20 
90 
A2 
20 
EF 
6D 
22 


BE 
6C 
8D 
8D 
22 
20 
8D 
8D 
A2 
CO 
A9 
A9 
05 
22 
01 
BE 
BO 
FD 
E8 
20 
FD 
8E 
22 
00 


18 
BE 
CD 
DA 
AS 
70 
D6 
D7 
10 
FO 
A0 
CA 
FO 
AC 
20 
B9 
02 
CA 
E8 
4A 
C8 
FD 
8D 
8D 


60 
8D 
BE 
BE 
74 
BE 
BE 
BE 
AD 
02 
9D 
20 
GA 
IE 
4A 
00 
A9 
C8 
AO 
E9 
CC 
AD 
1D 
1E 


2200- 22 AD 00 CO 10 97 8D 10 
2208- CO A9 A0 20 18 FD C9 91 
2210- DO 8B A9 CC 4C 70 BE 00 
2218- 54 44 55 4D 50 00 00 20 


Programme CMDLINK 


1 REM* LINK COMMANDE EXTERNE * 

10 D$= CHR$(4) 

15 TEXT : HOME : PRINT"LINK COMMAND 
E EXTERNE" 

20 PRINT: INPUT "COMMANDE EXTERNE 
A CHAINER:"C$ 

25 IF NOT LEN(C$) THEN END 

27 PRINT-CHARGE "C$".CODE ….” 

30 PRINT D$"BLOAD'C$"LOAD,A$2100" 

35 A = PEEK (8452): REM$2104 

37 PRINT "CHARGE CMDLOAD..." 

40 PRINT D$"BLOAD CMDLOAD,A$2000 

44 ONERR GOTO 46 

45 PRINT D$"CREATE"C$".T$F0" 

46 POKE 216,0 

48 PRINT"SAUVE "C$ 

50 PRINT D$"BSAVE"C$",A$2000,L "256 * 
(A+ 2). T$FO" 


Programme INIT.LINK 


1 REM* LINK COMMANDE INIT * 

10 D$= CHRS (4) 

15 TEXT : HOME : PRINT"LINKCOMMAND 
EINIT- 

19 PRINT: PRINT “CHARGE INIT.CODEO 


20 PRINT O$"BLOAD INIT.CODE0": REM 
$2100 

23 FOR | = 0 TO 33: READ D: POKE 768 + 
D: NEXT 

24 POKE 798, PEEK (8457). POKE 799, 
PEEK (8456) - 2 

25 A = PEEK (8457) + 256* PEEK (8458) - 
512: REM $2109 

26 PRINT: PRINT "PLACEZ UNE DISQUE 
TTE PRODOS","EN SLOT 6, DRIVE 1 
>"; GET 2$ 

30 CALL770:IF PEEK (768) THEN PRINT 
“ERREUR...” END 

40 8- A+ 1024 - 2° 4096 

45 PRINT : PRINT "SAUVE INIT.CODE .….* 

50 PRINT D$"BSAVE INIT.CODE,A$2100, 
L'A - 7424 

e0 DATA 0,1,32,0,191,128,28,3,141,0,3, 
208,14,238,32,3,238,31,3,238,31,3,20 
6,1,3, 16,231,96,3,96,0,0,0,0 



















13 et 15, avenue du Petit-Parc - 94300 VINCENNES 


Vos textes en direct de votre ordinateur 
a nos photocomposeuses 


Gain de temps et économie 





de l'impression et du brochage. 


Les textes de vos articles, catalogues, 
annuaires ou brochures saisis sur 
votre micro-ordinateur sont envoyés 


directement sur notre 
photocomposeuse 


Nous vous évitons ainsi, 


supplémentaire que 
nécessite le traitement 


Si vous le désirez nous pouvons 
également nous charger 









le coût et le temps de la saisie 


traditionnel de la photocomposition 
avant l'impression des documents. 








Pom's n° 20 





es instructions de 

décalage et rotation du 

langage machine 

6502: ASL, LSR, 
ROL, et ROR, pennettent bien 
des choses. Leurs fonctions sont 
les suivantes : 


+ ASL : décalage à gauche d'un 
octet. Tous les bits sont décalés 
d'une position vers la gauche. Le 
bit 7 va dans la retenue (C) etun 
zéro entre par le bit O. Par 
exemple, si l'accumulateur 
contient la valeur %0101001! 
($53), une instruction ASL 
donnera 10100110 ($A6), avec 
C=0. 

+ _LSR : décalage à droite d'un 
oetet. C'est le même principe, 
mais dans l'autre sens : les bits 
sont décalés vers la droite, C 
contient le bit 0 et le bit 7 est à 
ZÉTO. 


+ ROL: Rotation à gauche d'un 
octet. L'effet est le même que 
ASL, à ceci près que le bit O 
prend la valeur de C avant le 
ROL : si l'accumulateur contient 
%01010011 ($53) et la retenue 
est à 1, un ROL donnera 
%10100111 ($A7). Il ne s'agit 
donc pas d'une vraie rotation, 
puisque le bit 7 sortant ne va pas 
remplacer le bit O0. Mais cela peut 


Source ZOOM 


(Assembleur Merlin) 


1 RRIRRRRRERRRRRRRRRERRRKRRRRE 
FA * * 
3 *  AGRANDISSEMENT D'UNE * 
a * IMAGE HGR * 
S * * 
6 * {C) Pascal CANTOT * 
7 * 04/05/85 * 
Fr] * * 
9 KRRRRRRRRRRRRRRRRRRRRRÉRÉRÉRÉ 

10 

11 

12 CNTR = $18 

13 DLINE = $19 

14 HBASE = $26 

15 HMASK _ $30 

16 LINNUM _ $50 

17 XTAB = $FA 

18 YTAB 5 $FB 

19 HBASEL . $FC 

20 HBASE2 = $FE 

21 

22 CHKCOM = $DEBE 

23 GETBYT = $E6F8 


DécCalages… 


Pascal Cantot 


être obtenu par : 


CMP #$80 
ROL 


Le CMP #$80 positionne C à 1 si 
l'accumulateur contient un octet 
supérieur ou égal à $80, 
c'est-à-dire négatif, ou encore 
dont le bit 7 est à 1. Inversement, 
si cet octet est positif (bit 7 à 
zéro), C-0. Le ROL qui suit 
effectuera alors une vrai rotation. 
Cette méthode peut être utilisée 
pour coder des données sur une 
disquette, et empêcher d'éven- 
tuels curieux de les lire et les 
modifier avec un utilitaire genre 
DISKFIXER, CIA ou MOBBY 
DISK. L'utilisation d'un EOR 
#$AA est devenue classique. 


+ ROR : Même principe, mais 


,Bit7-> C 


dans l'autre sens : l'octet est 
24 HPOSN = S$SF411 
25 

26 

24 ORG $300 
28 632 5300 
29 

30 

31 GETPARM JSR CHKCOM 
32 JSR GETBYT 
93 CPX #21 

34 BCS TILQOERR 
35 STX XTAB 
36 JSR CHKCOM 
37 JSR GETEYT 
38 CPX #97 

39 BCS  ILQERR 
40 STX YTAB 
41 

42 MAGNIFY LDA YTAB 
43 CLC 

44 ADC #95 

45 STA CN?R 
46 LDA #191 
47 STA DLINE 
48 

493 MAGNI LDA DLINE 
50 JSR HPOSN 


décalé à droite, C entre par le bit 
7, et le bit O sort et va dans C. 


Ici, effectuer une rotation 
complète est plus complexe, car 
on ne peut tester le bit O d'un 
octet directement. On peut faire : 


PHA  ;Sauvegarde 
l'accumulateur 

LSR BitO ->C 

PLA :Restaure l'acc. C 
contient tou jours bit O 

ROR  ;Et l'ex-bit 0 prend sa 
place au bit 7 


Voir ‘Initiation à l'assembleur" 
(POMS 14). 


Les décalages ont de nombreuses 
applications. La principale, la 
multiplication entière, a déja été 
traitée par Gérard Michel, ainsi 
que le test de bits. 


Si LDA HBASE 

52 STA HBASEI 

53 LDA HBASE+1 

54 EOR 4#$60 

59 STA HBASEl+1 

56 DEC DLINE 

SA LDA DLINE 

58 JSR HPOSN 

59 LDA HBASE 

60 STA HBASE2 

61 LDA HBASE+1 

62 EOR #$60 

63 STA HBASE2+1 

64 DEC DLINE 

65 LDA CNTR 

66 JSR HPOSN 

67 LDA HBASE 

68 CLE 

69 ADC  XTAB 

70 STA HBASE 

el LDY #19 

72 MAGN2 LDA (HBASE) ,Y 

73 PHA 

74 AND ##%10000000 

75 STA  HMASK 

76 PLA 

77 JSR DSHIFT 
Pom's n° 20 


Les deux programmes présentés 
ici sont basés sur les décalages et 
les manipulations de bits : le 
premier les utilise pour compter 
des bits : il s'agit de FREDISK, 
qui donne le nombre de secteurs 
libres sur une disquette. Cela 
permet de voir s'ilest possible de 
sauvegarder un fichier, mais 
aussi de contrôler facilement 
l'existence ou non d'un drive, ou 
la présence d'une mauvaise 
disquette. Le second illustre bien 
la puissance de ces instructions : 
il s'agit de ZOOM, agrandit une 
partie d'une image HGR au 
double de sa taille. On peut 
réaliser des effets de 
grossissement (voir DEMO 
ZOOM), mais aussi des 
génériques HGR courts et 
esthétiques. 


FREDISK 


Mode d'emploi 


Après avoir fait "BRUN 
FREDISK", l'instruction USR 
est revectorisée. Il suffit alors 
d'un "PRINT USR(X)", où ‘'X' 
est le numéro du lecteur (1 ou 2). 
Tout autre valeur entraîne un 
"ILLEGAL  QUANTITY 
ERROR") pour connaître le 





78 TYA 
79 PHA 
80 ASL 
81 TAY 
82 LDA  LINNUM 
83 ORA HMASK 
84 STA  (HBASEl},Y 
85 STA  (HBASE2),Y 
86 INY 
87 LDA LINNUM+1 
88 ORA  HMASK 
89 STA  (HBASE1),Y 
90 STA  (HBASE2),Y 
91 PLA 
82 TAY 
33 DEY 
94 BPL MAGN2 
95 
96 LDX CNTR 
97 BEQ MAGNEND 
98 DEX 
39 STX CNTR 
100 CPX YTAB 
101 BCS  MAGNI 
182 


103 MAGNEND RTS 


nombre de secteurs libres sur la 
disquette se trouvant dans le 
lecteur X. En cas d'erreur de 
lecture (disquette vierge, par 
exemple), il y a un “Bip” et 
FREDISK retourne la valeur -1. 


Le secteur 0 de la piste $11 d'une 
disquette DOS 3.3 (VTOC de la 
disquette), contient, entre autres, 
une sorte de "carte" des secteurs 
(octets $38 à $CO), chaque 
secteur étant représenté par un bit 
et chaque piste par deux octets 
(les seize bits des seize secteurs 
qu'elle contient) plus deux octets 
à O (peut-être Apple avait-il prévu 
un éventuel doublement de la 
capacité de ses lecteurs). 


Le principe de FREDISK est 
simple : grâce à la routine RWTS 
du DOS, il va lire ce secteur, puis 
compter les bits qui sont à 1 
(secteur libre) de l'octet $38 à 
l'octet $C0. 


Voici la procédure : tout d'abord, 
on charge la VTOC en $B3BB 
(emplacement qui lui est 
normalement réservé par le DOS) 
en tenant compte du lecteur 
spécifié. Ensuite, on prend un 
paire d'octets sur deux de $38 à 
$CO. On charge chaque octet 
dans l'accumulateur (routine 
GETBYTE) puis on appelle 


105 #AAFARAARRRARARRRRRRRRARÉÉÉÉ 


106 
107 ILQERR LBX #53 


108 JMP  $D412 
109 

110 DSHIFT  LDX #0 

111 STX  LINNUM 
112 STX LINNUM+1 
113 

114 LDX #7 

115 SHFTI AS 

116 PHP 

117 JSR ROLINNUM 
118 PLP 

119 JSR ROLIN NUM 
120 DEX 

121 BPL SHFTI 
122 JSR ROLINNUM 
123 LSR  LINNUM 
124 RTS 

125 

126 

127 * 

128 ROLINNUM ROL LINNUM 
129 ROL LINNUM+1 
130 RTS 


SHIFT, qui retourne le nombre 
de bit à 1. Il suffit alors d'ajouter 
ce résultat à un compteur, puis de 
continuer jusqu'au 35ème octet. 
Alors, le compteur contiendra le 
nombre de secteurs libres. 


SHIFT commence (ligne 85) par 
réinitialiser un compteur, 
BITCNTR, qui contiendra le 
nombre de bits qui sont à 1. 
Ensuite, une boucle est exécutée 
huit fois. À chaque fois, A est 
décalé. Le bit sortant va dans la 
retenue C. Puis, C est testé : si 
elle est à 1, on incrémente 
BITCNTR. Et on boucle huit 
fois. 

A la fin, on a testé tous les bits de 
A et BITCNTR contient le 
nombre de bits qui étaient à 1. 


Ce procédé est très utile, car il 
permet d'analyser les "BIT 
MAPS", comme une VTOC, une 
image HGR (compteur de 
collisions du Basic lors du dessin 
d'une forme), la MEMORY MAP 
du ProDOS, etc. 


ZOOM HGR 


Il s'agit d'un programme qui 
agrandit une image HGR, en 
mettant le résultat de cet 
agrandissement dans l'autre page 


Récapitulation 


0300- 20 BE DE 20 F8 E6 EO 15 
0308- BO 7A 86 FA 20 BE DE 20 
0310- F8 E6 EO 61 B0O 6E 86 FB 
0318- A5 FB 18 69 SF 85 18 A9 
0320- BF 85 19 AS 19 20 11 F4 
0328- AS 26 85 FC A5 27 49 60 
0330- 85 FD C6 }9 A5 19 20 11 
0338- F4 AS 26 85 FE A5 27 49 
0340- 60 85 FF C6 19 AS 18 20 
0348- 11 F4 AS 26 18 65 FA 85 
0350- 26 AO 13 B1 26 48 29 80 
0358- 85 30 68 20 89 03 98 48 
0360- OA A8 AS 50 05 30 94 FC 
0368- 91 FE C8 AS 51 05 30 91 
0370- FC 91 FE 68 A8 88 10 DB 
0378- A6 18 FO 07 CA 86 18 E4 
0380- FB BO AO 60 A2 35 4C 12 
0388- D4 A2 00 86 50 86 51 A2 
0390- 07 OA 08 20 A3 03 28 20 
0398- A3 03 CA 10 F4 20 A3 03 
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HGR (cela a plusieurs avantage : 
un zoom continu si on "switche" 
les pages APRES l'agrandis- 
sement, et la possibilité de 
réaliser quatre images HGR à 
partir d'une seule, en 
agrandissant successivement 
chaque quart de l'image. 

Chaque point doublera en hauteur 
et en largeur, c'est à dire qu'il 
deviendra un carré de 2x2 pixels. 


Pour lancer le programme, il 
suffit d'un "BLOAD ZOOM" (il 
se charge en $300), puis d'un 
"CALL 768,X,Y" où X,Y sont 
les coordonnées du coin 
supérieur gauche du quart 
d'image à agrandir : X est le 
numéro d'octet, donc compris 
entre O et 20 (s'il est supérieur à 
20, il y a une erreur, car le bord 
droit est alors en dehors de 
l'écran), et Y le numéro de la 
ligne (de O à 96). 


Nous allons maintenant analyser 
le traitement que subit chaque 
octet de la page HGR doubler 
horizontalement (verticalement, il 
suffit de dédoubler la ligne). 


Le problème est de dédoubler 


Programme 
DEMO ZOOM 


20 ZOOM = 768 
30 HOME : VTAB 24: HGR2 
40 Charger ici une image graphique 
en $4000 
50 FOR = 1 TO 1000: NEXT : FOR 
[=1103 
60 FOR J = 1TO O STEP - 1 
70 CALL ZO,5 + | * 5,40 
80 POKE - 16300 + J,0: POKE 
230,32 + 32 *J 
90 NEXT : NEXT : FOR I= 1 TO 
500: NEXT 
100 POKE - 16301,0: INPUT "EN 
CORE (O/N) ? ";A$ 
110 IF ASC (AS) = 78 THEN TEXT 
: HOME : END 
120 RUN 


chaque bit, pour obtenir le 
résultat sur deux octets, tout en 
conservant le bit 7 (couleur). 


Ainsi, Si On a un octet 
%10010100, il faudra retourner 
%10000110 10110000 ; analy- 
sons DSHIFT, à la ligne #110 du 
source : 


A contient l'octet. Auparavant, 
HMASK a été mis à 10000000 
ou %00000000 selon le bit de 
couleur. LINNUM (deux octets) 
est remis à 0. C'est lui qui 
contiendra le résultat. Puis 
SHFTI1 est exécuté huit fois. A 
chaque fois, l'accumulateur est 
décalé, et le bit sortant va dans C. 
Le registre d'état (donc C 
également) est sauvegardé par 
PHP, et on appelle ROLINNUM, 
qui effectue le décalage sur 16 
bits de LINNUM. La retenue 
entre donc dans LINNUM par le 
bit 0. Puis intervient la subtilité : 
on restaure la retenue (modifiée 
lors du décalage 16 bits) par PLP 
et on répète l'opération. Ainsi, le 
bit sortant de l'accumulateur se 
retrouve dédoublé dans 
LINNUM Il reste à boucler huit 


Récapitulation 
FREDISK 


Pour utiliser FREDISK faire 
BRU N FREDISK 


pas 


A=USR(DRIVE) 
avec DRIVE = ] ou 2. 


9500- A9 4C 85 OA A9 OD 85 0B 
9508- A9 95 85 OC 60 20 FB E6 
9510- 8A FO 09 EO 83 BO 05 8E 
9518- EA B7 DO 03 4C 99 El A9 
9520- BB 8D C3 AA A9 B3 8D C4 
9528- AA 20 8D 95 90 OA A9 FF 
9530- AO FF 20 F2 E2 4C 3A FF 
9538- A9 00 8D 8B 95 8D 8C 95 
9540- AO 38 20 59 95 C8 20 59 
9548- 95 C8 C8 C8 CO C4 DO F2 
9550- AD 8C 95 AC 8B 95 4C F2 
9558- E2 B9 BB.B3 20 6F 95 18 
9560- 6D 8B 95 8D 8B 95 AD 8C 
9568- 95 69 00 8D 8C 95 60 8E 
9570- 8A 95 A2 00 8E 89 95 A2 
9578- 08 OA 90 03 EE 89 95 CA 
9580- DO F7 AD 89 95 AE 8A 95 
9588-—- 60 00 00 00 00 A9 11 8D 
9590- EC B7 A2 00 8E ED B7 8E 
9598- EB B7 E8 8E F4 B7 A9 BB 
95A0- 8D FO B7 A9 B3 8D F1 B7 
95A8- A9 B7 A0 E8 4C B5 B7 


fois. 


Ensuite, il s'agit de restaurer 
correctement le bit de couleur, 
car, bien que le zoom transforme 
tout point en couleur en point 
blanc par son dédoublement, il 
faut bien penser au fait que, pour 
l'Apple, il existe deux blancs et 
deux noirs différents, bien 
qu'ayant la même apparence. 
Aussi, il faut en tenir compte, au 
cas où l'utilisateur voudrait tracer 
des lignes sur l'image agrandie. 


Le bit de couleur est dédoublé 
dans les bit 15 et 14 de 
LINNUM. Un appel à 
ROLINNUM le restreint au bit 
15. Le bit de couleur du second 
octet est donc bien ajusté. Au 
deuxième maintenant... On décale 
vers la droite le premier octet (le 
bit O, qui est “éjecté", vient de 
l'opération précédente), libérant 
ainsi le bit 7 (qui est alors à zéro). 
Ensuite, le programme primcipal 
effectue un ORA HMASK qui 
rétablit le bit de couleur originel. 


a: 


Source FREDISK 


(Assembleur Merlin) 


KARARRRERÉRÉRRARRÉRRÉRRRRRERÉ 


Pascal CANTOT 


É SO À À à : 


© —J où Ur & WU ON HA 
# OÙ * w x 


KRRRRRRRRRRRRARÉRERÉARÉARARRÉX 


wo 


10 

11 USR & $0A 

12 ADRVTOC = $AAC3 

13 VTOC = $B3BB 

14 GIVAYF = $E2F2 

15 CONINT = $SE6FB 

16 

17 

18 ORG  $9500 

19 OBJ $9500 

20 

21 INITFRE LDA #$4C 

22 STA USR 

283 LRBA  #FREDISK 
24 STA USR+1 

25 LDA #>FREDISK 
26 STA USR+2 

27 RTS 





Micro-informations 


e drapeau de l'Apple // 

flotte au dessus de 

Cupertino. C'est la 

conséquence la plus 
visible de la réorganisation en 
forme de révolution de palais qui 
a secoué Apple. Exit Steve Jobs : 
avec la mise à l'écart du père 
fondateur, la priorité donnée à 
l'équipe chargée de développer le 
Macintosh a brusquement cessé. 
Les "parias", qui s'occupaient du 
/! (qui fournit toujours à Apple 
l'essentiel de ses ressources) 
tiennent désormais le pouvoir. 
Sauront-ils modérer leur revan- 
che, et ne pas étouffer les 
spécialistes du Mac ? De cette 
question dépendra probablement 
l'avenir d'Apple comme cons- 
tructeur indépendant de micro- 
ordinateurs. 


En attendant, c'est une véritable 
salve de nouveautés, concernant 


Jean-Michel Gourévitch 


l'Apple //, qui va probablement 
faire cet automne la joie des 
lecteurs de Pom's, tou jours fanas 
de l'ancêtre, avec, pour commen- 
cer, le lecteur de disquettes (trois 
pouces et demi comme celles du 
Macintosh) qui viendra relayer 
l'antique lecteur de 143 Ko. Ce 
lecteur (de la taille du lecteur 
externe du Macintosh, et de la 
couleur de l'Apple //c) fabriqué 
par Sony (et baptisé Liron) est 
capable de stocker 800Ko sur les 
deux faces d'une disquette de 
trois pouces et demi. Les lecteurs 
de Pom's ont pu faire sa 
connaissance dans cette même 
rubrique du précédent numéro. 
L'appareil (utilisable sur Apple //c 
et //e) serait rebaptisé Unidisk 
3.5. Prix espéré : moins de 4000 


Francs. À noter qu'une version 
"Duodisk" (avec deux lecteurs et 
1,6 Méga-octet) est utilisée par 
les développeurs travaillant sur 
produits Apple aux Etats-Unis. 


La deuxième nouveauté attendue 
est une carte d'extension de 
mémoire. À l'image de la carte 
d'Applied engineering, mais 
vendue par Apple, elle pennet 
d'étendre la mémoire vive de 
l'Apple //e jusqu'à 1 Méga-octet. 
Plus que le Mac ! 

Et ça n'est pas tout. La revue 
InfoWorld, généralement bien 
informée sur le dessous des 
cartes (d'extension) en a encore 
recensé d'autres. Celle notam- 
ment permettant de connecter 
l'Apple // au réseau Appletalk, lui 
ouvrant ainsi des possibilités de 


28 


29 RRRRRERRRRRÉARANARÉRRRÉRRÉÉARÉER 


30 


31 FREDISK JSR CONINT 
32 TXA 

33 BEQ FRERR 
34 CPX #3 

35 BCS FRERR 
36 STX $BJEA 
37 BNE  RDVTOC 
38 * 

39 

40 FRERR JMP $E199 
41 

42 RDVTOC LDA 8VTOC 
43 STA  ADRVTOC 
44 LDA #>VT@C 
45 STA  ADRVTOC+1 
46 JSR READVTOC 
47 

48 BCC SCANNER 
49 LDA $$FF 

50 LDY 8£$FF 

S1 JSR GIVAYF 
52 JMP $FF3A 
33 

54 SCANNER LDA #0 

5 STA CNTR 


57 LDY #$38 89 

58 90 SHFTLUP ASL 

S9 SCANLUP JSR GETBYTE 91 BCC SHIFTI 
60 INY 92 INC BITCNTR 
61 JSR GETBYTE 93 SHIFTL DEX 

62 INY 54 BNE SHFTLUP 
63 INY 95 

64 INY 9€ LDA BITCNTR 
65 CPY #$C4 87 LDX REGX 

66 BNE  SCANLUP 98 RTS 

67 39 

68 LDA CNTR+1 100 BITCNTR HEX 00 

69 LDY CNTR 101 REGX HEX 00 

70 JM  GIVAYF 102 CNTR REX 0000 

71 103 

72 104 FRRRRRRRRRRRRRRERRERRRRÉRERRE 
73 GETBYTE LDA VTOC,Y 105 

74 JSR SHIFT 106 REACVTOC LDA #511 

75 CLC 107 STA $B7YEC 
76 ADC CNTR 108 LDX #0 

Fit STA CNTR 109 STX $B7ED 
78 LDA CNTR+1 110 STX $B/EB 
79 ADC #0 111 INX 

80 STA CNTR+1 112 STX $BJ/F4 
81 RTS 113 LDA  #VTOC 
82 114 STA $B7/FC 
BI Rae ese sais see 0.660180 0010 0 se 115 LDA #>VTOC 
84 116 STA $B7F1 
B5S"SATET STX REGX LE? LDA #$B7 

86 LDX #0 118 LDY #$E8 

87 STX BITCNTR 119 JMP $B7B5 
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communication avec le Macintosh 
(c'est banal) et avec l'IBM PC (ça 
l'est moins). 


Reste qu'avec leurs baisses de 
prix, les IBM et compatibles (et 
notamment le Tandy) sont 
pratiquement au même prix que 
l'Apple //. Comment concurren- 
cer ces 16 bits ? Avec (probable- 
ment l'année prochaine), la 
version "16 bits" de l'Apple //, le 
vaisseau fantôme de la micro- 
informatique : tant de fois annon- 
cé (notamment dans cette 
rubrique) et démenti avec la 
même constance par Apple. 
L'Apple 16 bits, un rêve ? 
Accrochez-vous : ce rêve est déja 


Et le Macintosh ? 


S'intéressera-t-on encore au 
Macintosh chez Apple, avec cette 
avalanche de nouveautés pour 
l'Apple // ? Probablement. 

Apple a fermé l'usine qui devait 

construire les disques durs. Il 

faudra donc que Cupettino ait 

recours à la concurrence pour 
fournir : 

* un disque dur serveur (plus de 
20 Mégas) pour l'utilisation au 
bureau avec le réseau Appletalk 

* un disque dur de 10 à 20 
Mégas pour le Macintosh (les 
pourparlers continuent avec 
General Computer Co pour 
l'éventuel montage de l'Hy- 
perdrive dans le Mac, mais 
plusieurs fabricants sont en 
compétition). 

Par contre, c'est chez Apple que 

sont actuellement mises au point 

de nouvelles ROM permettant la 
gestion d'informations stockées 
sur disques laser "compact disk" 
et une nouvelle version du 

Finder, encore plus rapide que la 

version 4.1. Les nouveaux 

lecteurs de disquettes double face 

(800Ko) seront eux aussi 

rapidement disponibles pour le 

Macintosh. 


Par ailleurs, on étudie de 
nouvelles versions du Macintosh. 
Un Mac haut de gamme "ouvert" 
permettant l'insertion aisée de 
cartes d'extension et de disque 
dur serait sur la table à dessin, 





réalité. Grâce à deux cartes 
d'extension. 


La première, la MAX 816 de 
Micro Magic, contient un 
processeur 65816 cadencé à 4 
Mhz. La carte con#ent en plus 
256K de mémoire vive (extensi- 
ble à 1 Méga-octet, mais le 
processeur peut adresser 16 
Mégas). Pour faire fonctionner le 
processeur, Micro Magic a 
développé un système d'exploita- 
ton : le MAX OS, basé sur le 
système UNIX et-prévoit d'ajou- 
ter à l'Apple une catte graphique 
(1024 x 1024 points) et un 
contrôleur permettant de gérer la 
mémoire vive en disque virtuel. 


ainsi que le "projet Jonathan" : un 
Mac avec écran couleur et modem 
intégré. 


Une partie de toutes ces 
nouveautés serait distillée d'ici à 
la fin de l'automne. Le Mac haut 
de gamme, et l'Apple // 16 bits 
pourraient être officiellement 
annoncés en janvier, lors de la 
traditionnelle assemblée des 
actionnaires d'Apple. Ils seraient 
alors disponibles en 1986. "1986 
sera l'année de l'introduction de 
nouveaux produits” a dit Del 
Yocam, l'ancien patron de la 
division Apple //, devenu 
responsable de toute Ja 
production d'Apple. Acceptons 
en l'augure. 


Des logiciels 
pour l'Apple // 


On se désesperait, dit-on, chez 
Apple, devant le manque de 
logiciels créés pour l'Apple //. 
C'est vrai que les développeurs 
préfèrent apparemment travailler 
pour le Mac. Pourtant, tous n'ont 
pas abandonné l'ancêtre. 
Version Soft mettrait actuel- 
lement la dernière main à un 
incroyable "Finder", offrant sur 
l'Apple // toutes les facilités 
présentes habituellement à l'écran 
du Macintosh. Il ne resterait plus 
ensuite qu'à créer des logiciels 
exploitant ce Finder, et notam- 
ment un ‘"MacWrite" pour l'Apple 





Une autre carte 65816 disponi- 
ble, celle de Com Log, tourne 
moins rapidement (1 Mhz), mais 
pour 395 dollars seulement. 


Autre nouveauté annoncée par 
InfoWorld : une imprimante Ima- 
geWriter Il comprenant notam- 
ment un chargeur de papier 
automatique (fonctionnant aussi 
avec le Macintosh). 


Pour lutter contre la concurrence, 
l'ensemble de la gamme Apple 
connaîtra des baisses de prix 
sensibles (aux Etats Unis, les 
prix aux revendeurs ont déja 
baissé cet été de 4%. Ce ne serait 
qu'un début). 


Il. Version Soft vient d'ailleurs de 
remporter un succès qui lui 
permet "d'assurer" : son logiciel 
de communications avec utilisa- 
tion de la souris (Version Com) 
a été choisi par Apple pour être 
inclu dans une promotion 
compottant le modem Sectrad et 
un manuel de communications 
écrit par Jacques Jean Bessières. 
Ordinateur Express, le dis- 
tributeur de Jane, qui fut le 
premier programme intégré avec 
souris (hélas, trop léger), pour 
l'Apple // propose Janet, un petit 
programme pour apprendre la 
dactylographie, et étudie la 
possibilité d'améliorer Jane (for- 
mats de lettres pré-établies et de 
feuilles de calculs toutes faites, 
formats de gestion des cartes de 
crédit, date d'expiration des 
appareils ménagers, archives 
d'articles de presse etc... ainsi 
que l'élargissement de la feuille 
de calculs du tableur et des fiches 
du tableur). 

Chez Controle X, on met aussi 
la dermière main à une gestion de 
fichiers facile à utiliser, emplo- 
yant notamment la souris. 

De l'autre côté de l'Atlantique, les 
amateurs de programmation 
lorgnent avec interêt sur le 
compilateur C de Manx Soft- 
ware Systems, (enfin disponi- 
ble pour le Prodos). Cette finne 
met la dernière main à une 
version 65816 (pour l'Apple // 16 
bits) de son compilateur Aztec 
C. Enfin, Manx propose une 











gamme étendue de cross- 
compilateurs VAX,MS DOS, 
Macintosh, CP/M à destination 
de l'Apple //. 


Broderbund se prépare à lancer 
Fantavision, un programme 
permettant de réaliser des dessins 
animés : on dessine des images 
(par exemple un bonhomme avec 
un bras tendu le long du corps et 
une autre le bras levé), et 
l'ordinateur se charge de réaliser 
toutes les images correspondant à 
la décomposition du mouvement. 
De tels programmes existaient 
déja, mais pour des mini- 
ordinateurs valant plusieurs 
millions de dollars... 


À remarquer, enfin, une nouvelle 
version du jeu d'échecs Sargon 
III d'Hayden utilisant la souris. 
L'Apple // ressemble, c'est déja 
vrai, de plus en plus au 
Macintosh. 


Des disques durs 
pour le Mac 


En attendant celui "officiel" 
d'Apple, les disques durs se 
multiplient. 


Le Macbottom de Personal 
Computer Peripherals, d'une 
capacité de 10 Méga-octet 
s'installe juste sous le Macin- 
tosh : sa taille correspond préci- 
sément à celle de la base du 
micro-ordinateur (son épaisseur 
est inférieure à 7 cm). Il se 
branche indifféremment sur la 
sorte modem ou imprimante du 
Mac. On peut le partitionner en 
volumes de taille variable, enfin, 
un "spooler" incorporé permet de 
continuer à travailler avec l'ordi- 
nateur pendant que l'imprimante 
fait son office. 


Le Paradise Mac 10 de 
Paradise Systems offre une 
capacité fornattée de 10 Méga- 
octet, et se place à côté du Mac. 
Sa largeur : 3,5 pouces. Vitesse 
garantie : 5 fois plus vite qu'une 
disquette (vitesse de rotation : 
3600 tours/minute). Pnix : 1500 
dollars. 


Quant au Sider de First Class 
Peripherals, les lecteurs de 
Pom's avaient déja lu sa 
description pour l'Apple //. Le 
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voici disponible pour le 
Macintosh : Technologie Win- 
chester, 10 Méga-octet. Et surtout 
un prix canon” : 695 dollars. 
L'appareil qui est vendu par 
correspondance aux Etats-Unis y 
fait un malheur. A ce prix, rien 
d'étonnant. 


Remplacer 
la souris 


On avait déjà tout essayé pour se 
débarrasser de la souris : joy- 
stick, crayon et tablette 
graphique, numériseur. On 
croyait avoir tout vu. Eh bien il 
manquait encore à l'appel le 
VCS (View Control System) de 
Personics Corporation. Quel 
bizarre ustensile : un casque qui 
s'installe sur le crâne de 
l'utilisateur du Macintosh. Un 
émetteur à ultra-sons s'installe au 
dessus du Macintosh. Il suffit 
ensuite de fixer du regard le point 
où l'on souhaite que le pointeur 
se déplace sur l'écran : le casque 
reçoit le signal ultra-sonore, les 
changements dans la rotamon et 
l'angle de la tête de l'opérateur 
sont transmis au Macintosh. Pour 
cliquer, on utilise un bouton qui 
se colle sur le clavier, juste en 
dessous de la barre d'espace- 
ment. Le produit paraît loufoque, 
mais ce n'est pas un poisson 
d'avril. Prix : 199 dollars. 


Des logiciels 
pour le Mac 


Avec, pour commencer, Mac- 
Tel! 2 de Hello Informa- 
tique. Cette nouvelle version 
permet toujours de transformer 
Macintosh en un Minitel 
intelligent, mais donne aussi la 
possibilité d'utiliser l'ordinateur 
comme terminal ASCII (et donc 
d'avoir accès à Calvados et au 
Club Apple) sans avoir à quitter 
le programme. Parmi les 
améliorations : un éditeur local 
permettant de lire, mettre en 
forme, ou rédiger un texte, à 
l'intérieur du programme, 
l'amélioration des procédures 
automatiques, la possibilité de 
transférer directement des 





données dans Multplan, l'envoi 
et la récepon de fichiers (textes 
ou binaires), l'impression des 
procédures et textes édités, le 


réglage du mode de communica- 


#ion, une commande de suppres- 
sion d'écho (pour la frappe des 
mots de passe), un mode veille 
(pour éviter le raccrochage 
automatique de Franspac), et une 
horloge affichée à l'écran avec 
chronomètre (au prix des 
communications, les mordus du 
Minitel apprécieront). En utilisa- 
tion ASCII, on peut communi- 
quer à 1200 bauds (même avec le 
modem Sectrad/Apple), on peut 
avoir accès aux procédures 
automatiques et au service de 
tracé de courbes Graphis de 
Calvados, configurer le clavier, 
régler l'affichage, sauvegarder 
l'écran ou le texte directement sur 
disque , imprimer en continu les 
lignes reçues, l'écran ou le texte 
sélectionné. 

Bref, ce programme qui était déjà 
le meilleur outil émulant le Minitel 
sur Macintosh est désormais l'un 
des plus complets des program- 
mes de communication. 


Des logiciels 
graphiques 


Et d'abord VideoWorks de 
Hayden. Un logiciel fantastique 
qui vous permettra de réaliser en 
deux coups de cuiller un dessin 
animé de plusieurs minutes. Ce 
dessin peut ensuite être sonorisé 
avec de la musique. 

Les applications sont nom- 
breuses : animation de vitrine, 
présentation animée d'une 
courbe, de l'évolution d'un 
produit, d'une tendance. En 
filmant avec une caméra l'écran 
du Macintosh, on peut réaliser un 
film animé. 

Ce programme est vraiment 
capable de mettre en mouvement 
n'importe quoi. Il inclut aussi 
deux accessoires bien utile : l'un, 
Art Grabber, installé dans le 
menu pomme, permet d'ouvrir un 
dessin MacPaint de l'intérieur du 
programme. Le second Cheap 
Paint permet de retoucher le 
dessin sans avoir à utiliser 
MacPaint. Prix : 79 dollars. 
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Vraiment pas cher par rapport aux 
possibilités de ce programme. 


On peut aussi ouvrir des dessins 
de MacPaint de l'intérieur d'un 
programme avec QuickPaint, 
un petit utilitaire produit par 
Enter Set. Une fonction 
"Miniview" pennet de consulter 
tous les dessins d'une disquette. 
On peut ensuite agrandir le 
dessin, puis la partie de dessin 
intéressante, et la couper ou la 
copier. Prix : 50 dollars. Le 
même éditeur vend aussi 
QuickWord, un utilitaire per- 
mettant de créer un glossaire dans 
MacWiite. Pnx : 60 dollars. 


Un autre programme pennettant 
de réaliser des animations est 
produit par Ann Arbor Soft- 
works, c'est In Motion. Les 
actions à réaliser sont représen- 
tées par des icônes. Le program- 
me est livré avec TotalPaint, un 
outil de dessin comportant la 
plupart des fonctions de Mac- 
Paint, et bien sûr des sons, à 
ajouter aux graphiques. 


Enfin, PaintCutter de Silicon 
Beach Software est l'un des 
outils inclus sur une disquette 
appelée Accessory Pak 1, 
PaintCutter pennet d'ouvrir un 
dessin MacPaint sur toute la 
surface de l'écran (ce qui n'était 
hélas pas possible avec Mac- 
Paint). Une option permet de 
réaliser des écrans de démarrage, 
on peut aussi recopier dans un 
document MacWrite des docu- 
ments plus larges que la surface 
de l'écran. Ce programme est 
utilisable avec le Switcher. Pnx : 
40 dollars. 


Pour le travail 
sérieux 


A noter : la nouvelle version (1.1) 
de Think Tank 512K. Cette 
version comporte des caractèles 
différents, fonctionne avec le 
Switcher, et est désormais 
compatible avec Word et 
MacWrite. 

Remarquable la nouvelle version 
d'Overview de ProVue. Cette 
base de données est désorinais 
relationnelle, permet de classer 
dans l'ordre alphabétique un état 
de 20 pages en deux secondes, de 


réaliser des graphiques. Les 
données peuvent être importées 
ou exportées de MacWrite, 
Multiplan, MacTerminal, Lotus 
123, Appleworks, dBase II, 
etc. une fonction Clairvoyance 
permet à l'ordinateur d'entrer 
correctement un mot ou un nom 
qu'on a déja utilisé, en tapant 
seulement quelques unes de ses 
lettres : une sorte de glossaire 
automatique. Ce programme 
comporte aussi des macros 
commandes permettant de réaliser 
des programmes automatiques. 
Bref, cette base de données 
relationnelles et automatsable est 
de la race des nouveaux pepe 
mes sortis en ce début 
d'automne, comme Omnis 3, 
Quatrième dimension et Mac 
Base 500. Son prix : 295 
dollars. 


Une rumeur persistante affirme 
que Aston Tate, le créateur de 
Frameworks, l'un des plus 
intelligents des programmes pour 
l'IBM serait sur le point de sortir 
une version de ce programme 
pour le Mac, utilisant toutes les 
ficelles des fenêtres, menus, etc. 
Si c'est vrai, ça va faire mal ! 


De son côté, Microsoft ne met 
pas tous ses œufs dans le même 
panier. D'un côté, il s'apprête à 
vendre Excel, porte-drapeau des 
programmes ‘anti-intégrés" de 
l'autre, il met la dernière main à 
Productivity Software's 
Mouseworks : un programme 
intégré comprenant traitement de 
texte, base de données, et tableur, 
qui serait au Mac ce 
qu'Appleworks est à l'Apple //. Il 
est vrai que l'équipe du créateur 
d'Appleworks - Rupert Lissner - 
a rejoint Microsoft au printemps 
dernier. Prix prévu pour ce 
programme : 295 dollars. 


Intégré ou non ? 


C'est donc le débat de cette 
rentrée. En clair : vaut-il mieux 
construire des programmes 
gigantesques et intégrés offrant 
toutes les fonctions imaginables 
(mais pas toujours à leur 
maximum), ou est il préférable 
d'utiliser simultanément plusieurs 
programmes dont chacun est le 
meilleur dans son domaine, en les 


faisant fonctionner ensemble avec 
le Switcher ? (Rappelons que le 
Switcher, développé chez Apple 
permet de partitionner la mémoire 
d'un Macintosh de 512Ko en y 
installant plusieurs programmes, 
qui peuvent communiquer entre 
eux). 


Avec Jazz, Lotus a choisi la 
première option. Las ! Ses 
premiers utilisateurs commencent 
à s'aviser que la base de données 
est un peu "simplette”, que le 
tableur ne comporte même pas la 
possibilité de lier entre elles des 
feuilles de calculs, que les 
"macros" (commandes automati- 
sées) sont absentes. 


Avec Excel, MicroSoft a 
précisément choisi l'option 
inverse. Ce tableur où seuls les 
graphiques sont intégrés offre ce 
qu'on peut réaliser de mieux dans 
le domaine (et notamment ces 
fameuses macros”). Pas de 
traitement de texte ? Peu importe. 
On utilise Excel et Word avec le 
Switcher (et bien sûr un 
Macintosh de S12Ko) et on ajoute 
au meilleur des tableurs, le 
meilleur des traitements de texte. 
Une fraction de seconde suffit à 
transférer des données ou des 
graphiques d'Excel dans Word. 


Les programmes intégrés sont 
devenus de véritables monstres. 
Les lignes de programme sont si 
nombreuses, que l'utilisation de 
nombreuses disquettes s'impose 
de toutes façons. Le "débuggage" 
se fait problématique. Et, au bout 
du compte, les utilisateurs 
disposent de fonctions qu'ils 
n'utilisent pas forcément. 

Le Switcher leur rend la liberté de 
choisir le meilleur programme de 
sa catégorie, et de l'associer avec 
un autre programme, lui aussi 
excellent. La possibilité d'étendre 
à 1 Méga-octet la mémoire vive 
du Macintosh donnera à ce 
véritable “pont inter-program- 
mes” toute sa valeur. Or, 
précisément, le Switcher, qui en 
est déja à sa version 3.9, se 
perfectionne. Il serait notamment 
capable désormais de faire 
fonctionner le Macintosh en 
"multitâches”. En clair, même si 
on fait basculer le Macintosh sur 
un des programmes du Switcher, 
les autres programmes continuent 
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à fonctionner. On peut ainsi, par 
exemple commencer à écrire un 
texte, pendant que le tableur 
recalcule des formules. Si avec le 
Switcher, le Mac accède au rang 
d'ordinateur "multitâches", la vie 
des programmes intégrés risque 
de devenir décidément très 
difficile. 


Adresses 


Micro Magic 
Millersville, MD USA 


Com Log 
Scottsdale, AZ 


Manx Software Systems 
Box 55, Shrewsbury, NJ 07701 


Version Soft 
66, rue Castagnary - 75015 Paris 


Controle X 
94, rue Lauriston - 75016 Paris 


Ordinateur Express 
3, rue Pelouze - 75008 Paris 


Hayden 
600 Suffolk Street Lowell, 
MA 01854 


Personal Computer 
Peripherals Corporation, 
6204 Benjamin Road Tampa 
FL 33614 


Paradise Systems 
Tél. : (800) 5527 7977 
en Califomie 


First Class Peripherals 
3579 Highway 50 East, 
Carson City NV 89701 


Personics Corporation 
2352 Main street, Concord 
MA 01742 


Hello Informatique 
1, rue de Metz - 75010 Paris 


EnterSet 
410 Townend St, San Francisco, 
CA 94107 


Ann Arbor Softworks 

308 1/2 S. State Street, 
Ann Arbor MI 48104 
Silicon Beach Software 
PO Box 261430 San Diego, 
CA 92126 


ProVUE 
222 22nd St, Huntington Beach, 


CA 92648 
G 
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Courrier 


des lecteurs 


Je voudrais vous signaler un truc 
au sujet des masques ; il est 
annoncé dans Pom's qu'ils 
occupent 6 secteurs sur la 
disquette. En fair, on peut faire 
entrer un en S secteurs très 
facilement. Il suffisait de se 
souvenir (ces informations m'ont 
été fournies par le livre "Beneath 
Apple Dos") qu'un fichier 
requiert un secteur seulement 
pour la liste des pistes/secteurs. 
Or, les $400 (1024) adresses de 
l'écran devraient tenir en 1024:4 
= 4 secteurs, donc au total 5. 
D'où vient le secteur supplé- 
mentaire ? Il y a deux raisons : 
premièrement, un fichier binaire 
commence par 4 octets indiquant 
l'adresse de chargement et la 
longueur. En plus, un bug du 
Dos (signalé dans le livre précité) 
fait qu'il y a tou jours un octet de 
trop écrit dans un fichier. Quels 
sont les remèdes pour éliminer 
ces 5 octets qui débordent ? On 
sait depuis le n° 1 qu'un écran 
texte est criblé de "trous" de huit 
octets, à chaque fin de groupes de 
128 octets. La fin de l'écran 
coïncide justement avec ces octets 
superflus, c'est-à-dire que la 
vraie fin de l'image texte est à 
$7F7 (dernier octet). Donc, la 
longueur utilisable est de $3F8 et 
non $400. Pour corriger 
Gesmask, il suffit de modifier la 
ligne 605 en remplaçant le 
paramètre "LI024" par “L$3F8". 
Pour Gesmask Modifié, ce sera la 
ligne 609. II faut noter que cette 
astuce marche aussi pour les 
images HGR : on peut les stocker 
en 33 secteurs avec : BSAVE 
nom, A$2000 (ou 4000 pour 
HGR2), L$FFS8. Enfin, une autre 
astuce pour de beaux listings. En 
écrivant des REM, et en les 


Olivier Herz 


listant, on est forcé de voir 
imprimer les "REM" avec leur 
numéro de ligne. Îl existe une 
astuce facilement accessible avec 
un [le ou c, qui consiste à insérer 
des caractères Del (ASCII 127), 
ce qui a pour effet sur la plupart 
des imprimantes (du moins sur 
Epson), d'effacer un caractère du 
buffer. Il faut donc écrire, juste 
après une REM, 6 caractères Del 
plus le nombre de Del 
correspondant au nombre de 
caractères qui forment le numéro 
de ligne, ni plus ni moins. 

Une petite annonce : j'ai trouvé la 
solution complète du jeu 
d'aventure Dark Crystal, avec les 
plans et tous les détails. Si vous 
êtes coincés, écrivez-moi et je 
vous repêcherai. Sachez en tout 
cas que le gros bon sens règne 
dans ce jeu : les endroits 
intéressants sont tous marqués 
d'un indice particulier. Bonne 
chance ! 


Thierry HAN 
Ambassade de Corée 
B.P. 301, 

Yaoundé CAMEROUN 


Sans doute avez-vous remarqué 
qu'avec le DOS 3.3, lors de la 
lecture d'un fichier TEXT avec 
MON ÎT actif, les minuscules 
apparaissent sous forme de 
caractères en inverse. Ce n'est 
pas bien grave, mais il me semble 
que l'on puisse y remédier. 
L'instruction 9FAA - STA 
$AASC semble inutile puisque 
l'accumulateur contient justement 
le caractère stocké en SAASC. Je 


propose donc le paich suivant : 
9FA7:EA NOP 
9FA8: 09 80 ORA #5$80 
9FAA: 20 CS 9F JSR $S9FCS état adres leclécr fonction 
Yvan KŒNIG 
L KEYBOARD lecture du clavier 
: ne Ni Us 0 80STORE utiliser RAMRD/RAMWRT 


06220 VALLAURIS 





D'après le "Reference Manual" et 
bien d'autres écrits, les mémoires 
$C000 à CO0F sont équivalentes. 
Pourtant, en étudiant certains 
programmes professionnels 
(Print Shop, Dbmaster, par 
exemple), on rencontre des 


RAMRD 


RAMWRT 


SLOTCXROM 


ALTZP 





accès aux pages d'affichage par PAGE2 
lire en mémoire principale 

lire en mémoire auxiliaire 

écrire en mémoire principale 

écrire en mémoire auxiliaire 

ROM interne en $Cx00 

ROM d'un périphérique en $Cx00 

pile, page 0 et carte langage en mémoire 
piincipale 

pile, page 0 et carte langage en mémoire 
auxiliaire 








choses elles que : SLOTC3ROM ROM interne en $C300 
: on ROM d'un périphérique en $C300 

STA $ C000 80COL off affichage eu ue 
STA $ CO0C " on affichage en 80 colonnes 
STA $ CO0E etc... ALTCHARSET off ensemble primaire de caractères 
Est-ce simplement une coquetterie on ensemble alternatif de caractères 
ou ÿ-a-t-il une raison ? 

KBDSTRB remise à O du clavier 
Bernard GIBERT dire l'état de ALTCHARSET 
clo Total-Indonésie 1Ec lente RD 
P.0. Box 6 ire l'état de RAMWRT 

lire l'état de SLOTCXROM 

BALIK PAPAN lire l'état de ALTZP 
EAST KALIMANTAN lire l'état de SLOTC3ROM 
INDONESIA lire l'état de 80STORE 


Il est exact que sur l'Apple Il1+, 
les adresses $C000 à $CO0F 
(KEYBOARD) et $COI10 à 
$CO01F (KEY BOARD STROBE), 
sont identiques. Mais il n'en est 
plus du tout de même sur le //e et 
le //c. Vous trouverez ci-contre 
les adresses du //e telles qu'on les 
extrait à divers endroits du 
Manuel de Références.= 





En raison de besoins très 
parñculiers, j'ai été amené à écrire 
moi-même un programme de 
gestion de fichiers en accès 
direct. Il est écrit en Applesoft, 
sous DOS 3.3. J'utilise pour le tri 
la “routine de tri rapide en 
assembleur”, parue dansle n°11 
de Pom's. L'ensemble, très 
facilement adaptable, me donne 
entière satisfaction. Or, voici que 
j'ai un nouveau fichier à écrire 
qui atteindra, et même 
probablement, dépassera le 
Méga-octet. Tout naturellement, 





lire la suppression verticale (POM'S 17 
page 54) 

lire l'état de TEXT 

lise l'état de MIXED 

lire l'état de PAGEZ 

lire l'état de HIRES 

lire l'état de 80COL 


mode graphique 

mode texte 

mode non-mixte 

mode mixte 

accès page i (si 80STORE est off) 

accès mémoire principale (si 80STORE 
est on) 

accès page 2 (si BOSTORE est off) 

accès mémoire auxiliaire (si 80STORE 
est on) 

accès basse résolution (si 80STORE est 
off) 

PAGE2 commute la 
80STORE est on) 
accès haute fésolution {si 80STORE est 
off) 

PAGE2 commute 
80STORE est on) 


page texte (si 


aussi le hires (si 


nouvel environnement. Par 
contre, je ne sais comment 
adapter la routine de tri. 
Pourriez-vous me conseiller ? 


j'ai pensé à utiliser ProDOS. J'ai 
pu, sans problème, transférer le 
| programe basic et l'adapter à ce 
nouvel environnement. Par 


Georges DELARUE 

2 Chemin des Chambons 

38650 MONESTIER DE 
CLERMONT 
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Le programme TRITABLEAU. 
OBJO est compris entre les 
adresses $9AA6 et $9C3A ; 
cest-à-dire en plein milieu des 
buffers du DOS. Par conséquent, 
il ne peut marcher tel quel sous 
ProDOS, et il faut le faire 
fonctionner à un autre endroit. 
Transférons, par exemple, en 
$90A6-$923A. Deux méthodes 
sont possibles : 

- si vous avez l'assembleur 
ToolKit, changer 1a ligne 28 du 
fichier source en ORG $90A6 et 
réassembler, 

- sinon, faire les opérations 
suivantes : 

BLOAD TRITABLEAU.OBJO, 
A$90A6 

90AC:90 

90CE:90 

90FB:92 

911D:92 

BSAVE 
TRITABLEAU.OBJ0,A$90A6,L 
$195 

Il ne reste plus qu'à transférer 
TRITABLEAU.OBJO et 
éventuellement les programmes 
de démonstration en Applesoft 
sur une disquette ProDOS. Il 
faudra faire commencer tous les 
programmes Applesoft utilisant la 
routine tri par HIMEM:37030 
($90A6-37030), afin de ne pas 
écraser la routine avec les 
variables des programmes 
Applesoft. 


De nombreux lecteurs nous ont 
demandé une récapitulation des 
sujets abordés dans cette 
rubrique. 


Nous vous proposons donc 
ci-contre une liste classée par 
mot-clef des principaux sujets 
abordés. Cette liste, non exhaus- 
tive, renvoie aux différents 
numéros de la revue ou aux 
recueils. 
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Nous vous laissons juges du 
caractère arbitraire du choix des 
mots servant de clef. 


15 APA : Un bug corrigé 

18 AppleMouse II 

14 Applesoft, Moniteur et Carte 
langage 

15 AppleWriter : Un truc 

14 AppleWriter et 
FX80/FT 

10 AppleWriter //e (Patch pour 
code ASCII 0) 

R2 Astérisque en Pascal 

19 Basicium et ProDOS 

16 Beep amélioré 

17 Calculs financiers 

11 Calendrier perpétuel sur 
Visicalc 

10 Cane mémoire Apple //e 

13 Chat Mauve 

12 Chat Mauve et Epson 

10 Chat Mauve et PFS 

Choose sur Visicalc 

9 Club Apple // 

R2 Clubs de Paris 

R1 Compacter les programmes 

15 Comparaison de programmes 
Basic 

14 Compatibilité Apple 

10 Contrôle de la carte langage 
sur //e 

16 Copya, Pascal et CP/M 

R1 Curseur en mode Flash 

18 Date ProDOS 

12 217 fichiers par disquette 

14 Del sur Apple //e 

17 DIF.OBJ : Un bug 

17 Disk Manager 2 

17 Disque virtuel 

18 Disque virtuel 64 Ko 

17 Edition de jeux 

16 êen Basic 

15 ê sur Oki 84 

11 Entrées/sorties : reprogram- 
mation 

19 Eprom d'Epson 

18 Exec en Pascal 

18 Gesmask et OKI 82A 

17 Hard Copy 80 colonnes sur 
DMP 


Epson 


Hard Copy sur Seïkosha 
Hard Copy Texte 

Hello Complet et page 3 
Gescompte amélioré 
Graphiques, quand tu nous 
tiens (Patch pour Epson 
MX-82INIF/T) 

IBM 36 vers Lisa 

Icare : comment le charger 
Init dans un Exec 
MacetImageWniter 
Mini-assembleur 

Minuscules sur Seïkosha GP 
100 

Moniteur étendu (Patch) 
Muitiplan et Centronics 152 
Nouvelles touches du//e 
Numéros de volume (neutra- 
liser le contrôle) 

Numéros de Volume 
stockage sur la disquette 
Matgraph (ecratum) 
Microcoupures, surchauffe … 
Pascal 1.1, 1.2. 

Peek et Poke : errata 
Physique relativiste 

PFS et Chat Mauve 

Planche à voile ! 

Point ON ouOFF sur l'écran 
HGR ? 

Poke 214,255 

Poke 333,33 ! 

ProDOS et Eprom 2716 
Programmation facilitée, en 
80 colonnes 

Programmation facilitée (à 
propos de...) 

Purplesoft 

Récupérer un écran 80 
colonnes 

Reset 

Radiotélégraphie 

RomLC 

Secteurs libres sur disquette 
Splittage des programmes 
Basic 

Startup et Date en Pascal 
Tdump de fichiers TEXT sur 
écran ou imprimante 

Tracé rapide de cercles en 
HGR 

Transfonner un tableau de 
chaînes en fichier binaire 





Disquettes 


(cf. Pom'sn° 5) 

(cf. Pom's n° 8) 

(cf. Pom's n° 10) 

(cf. Pom's n° 11) 

(cf. Pom's n° 12) 

(cf. Pom's n° 12) 

(cf. Pom's n° 13) 

.P.E. (cf. Pom's n° iS) 
PASCAL ‘ (cf. Pom's n° 15) 
MAX (Moniteur étendu) (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 


Recueils 


N°1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompagnement 1 à 4 

N°2, recueil des revues 5 à 8 

Disquettes d'accompagnement 5 à 8 à 190,00 F 


Anciens numéros 


Revues 4 7 8 à 35,00F 
Revues 9 10 11 12 13 14 15 16 17 18 19 20 à 40,00F 


Disquettes Apple II, //e, //c 
12 3 4 5.6 7 8 9: 10 M 12 
13 14 15 16 17 18 19 20 


Disquettes Macintosh 
14/15/16 groupées 


17 18 19 20 


Abonnements Pour 6 numéros à partir du no | 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple IL, //e, //e 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


NO de TU Le io ee me An Une enr 


Adresse : 


Imprimerie Rosay, 94300 Vincennes, Imprimé en France. Dépôt légal : Septembre 85. N° 2767 
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Applemania 


Symptômes 
ymp 
OUL NON OUL NON 
1 Je veux connaître PRODOS sans être un pro 5. Pianoter des nuits entières, c'est planant. Mais 
du DOS OU planer tout seul, c'est frustrant. 
2. Ami des bêtes, je cherche un chat à puces pour 
colorier ma souris en mauve 
3. Devenir à l'aise comme Blaise en Pascal, quel pied ! L 1[] 


nn 6. Je veux relier mon lave-vaisselle à mon Apple 11. C1] 
7. Appeler un S.O.S. informatique quand 


4. Mon baud à 7 bits cherche un 8° pour compléter Rene suñpane O0 
son protocole X-On X-Off en vue d'une liaison 8. Je veux apprendre à mieux gérer mon bureau 
durable ME en le jetant par les fenêtres de Macintosh. 


3 OUI er MOINS : vous êtes en pleine 4 à 7 OUL : vous êtes contagieux, vous 8 à 10 QUI : bravo, venez d'urgence cultiver 
incubation, prenez des mesures ! serez bien entouré au Club Apple. voire pass'on au Club Apple. 


Remède : REJOIGNEZ LE CLUB APPLE 


Plein, plein d'avantages vous v attendent : 





- une messagerie électronique gratuite ; - des stages d'initiation et de perfectionnement animés 
F LL n” = 

- un numéro de téléphone pour consulter les ingénieurs par les “gourous” du Club; 

Apple 7 jours sur 7: - des voyages organisés en Californie; 

. ; - une librairie spéciale Club : 4 

= JOuS les mois, le journal du Club : - un Apple Check pour bénéhcier de conditions de 2 

L'Echo des Apple, crédit préférentielles : | 
- des conférences, réunions d'information, projections - des rencontres organisées avec d’autres 

privées et rencontres avec des “pros” ; Applemaniaques. 

BULLETIN-REPONSE 


Je désire recevoir, sans engagement de ma part, une documentation complète sur Le Club Applet votre formulaire d'inscription. 
NOM 
ADRESSE 











CODE POSTAL 














FICHES TECHNIQUES détaillées des micro- 
ordinateurs du marché (de 400 à 60 000 FF). 
LeGUIDE MICRO vous fournit une foule de 


renseignements précieux. 


BANCS D'ESSAI approfondis d'ordinateurs et de 
logiciels (gestion, utilitaires, jeux). Le GUIDE 
MICRO prend parti et dit lesquels acheter. 


TABLEAU géant des 125 imprimantes valant moins de 
15 000 FF. Le GUIDE MICRO vous aide àchoisir en 
fonction de vos besoins. 


ADRESSES utiles : boutiques, 
clubs, constructeurs. Le GUIDE 
MICRO les répertorie par ordre 
alphabétique et par département. 








2 septembre 1985 : 
LE GUIDE MICRO est vendu 39FF 
chez votre marchand de journaux. 


Que vous soyiez professionnel ou amateur, chevronné où néo- 
phyte, le GUIDE MICRO est un « must ». Une aide décisive avant 
l'achat d'un micro ou d’une imprimante. Un outil de référence tout 
au long de l'année. Ne le manquez pas! 


